mirror of
https://github.com/n5ac/mmtty.git
synced 2025-12-06 04:12:03 +01:00
109 lines
3.3 KiB
C++
109 lines
3.3 KiB
C++
//Copyright+LGPL
|
|
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|
// This file is part of MMTTY.
|
|
|
|
// MMTTY is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
|
|
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
|
|
|
|
// MMTTY is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
|
|
|
|
// You should have received a copy of the GNU Lesser General Public License along with MMTTY. If not, see
|
|
// <http://www.gnu.org/licenses/>.
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
//---------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "SendFile.h"
|
|
#include "Main.h"
|
|
//---------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
//---------------------------------------------------------------------
|
|
__fastcall TSendFileDlg::TSendFileDlg(TComponent* AOwner)
|
|
: TForm(AOwner)
|
|
{
|
|
Font->Name = ((TForm *)AOwner)->Font->Name;
|
|
Font->Charset = ((TForm *)AOwner)->Font->Charset;
|
|
if( Font->Charset != SHIFTJIS_CHARSET ){
|
|
Caption = "Sending file";
|
|
AbortBtn->Caption = "Abort";
|
|
Lline->Caption = "Letters per line";
|
|
}
|
|
m_fp = NULL;
|
|
if( sys.m_CharLenFile < 20 ) sys.m_CharLenFile = 20;
|
|
if( sys.m_CharLenFile > 1024 ) sys.m_CharLenFile = 1024;
|
|
m_DisEvent = 1;
|
|
CharLen->Text = sys.m_CharLenFile;
|
|
m_DisEvent = 0;
|
|
}
|
|
__fastcall TSendFileDlg::~TSendFileDlg()
|
|
{
|
|
if( m_fp != NULL ){
|
|
fclose(m_fp);
|
|
m_fp = NULL;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------
|
|
int __fastcall TSendFileDlg::Start(LPCSTR pName, int Y)
|
|
{
|
|
m_FileName = pName;
|
|
LName->Caption = pName;
|
|
m_fp = fopen(pName, "rt");
|
|
if( m_fp != NULL ){
|
|
Show();
|
|
Top = Y;
|
|
return TRUE;
|
|
}
|
|
else {
|
|
return FALSE;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------
|
|
int __fastcall TSendFileDlg::Timer(int buffcnt)
|
|
{
|
|
if( m_fp == NULL ){
|
|
return 2;
|
|
}
|
|
if( feof(m_fp) ){
|
|
fclose(m_fp);
|
|
m_fp = NULL;
|
|
return 1;
|
|
}
|
|
if( buffcnt < 10 ){
|
|
char bf[1025];
|
|
if( fgets(bf, sys.m_CharLenFile, m_fp) != NULL ){
|
|
ClipLF(bf);
|
|
MmttyWd->OutputStr(bf);
|
|
MmttyWd->OutputStr("\r\n");
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TSendFileDlg::AbortBtnClick(TObject *Sender)
|
|
{
|
|
if( m_fp != NULL ){
|
|
fclose(m_fp);
|
|
m_fp = NULL;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TSendFileDlg::CharLenChange(TObject *Sender)
|
|
{
|
|
if( m_DisEvent ) return;
|
|
|
|
int dd;
|
|
sscanf(AnsiString(CharLen->Text).c_str(), "%u", &dd); //JA7UDE 0428
|
|
if( (dd >= 20) && (dd <= 1024) ){
|
|
sys.m_CharLenFile = dd;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|