hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-22 02:47:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

added PROGRAMID and PROGRAMVERSION to ADIF header

Browse Source
This commit is contained in:
Petr Hlozek 2013-11-10 17:28:07 +01:00
parent 392a51d7ee
commit df9da88eeb
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/fAdifImport.pas
View File

@ -127,7 +127,7 @@ var
implementation
uses dData, dUtils, dDXCC, fMain, uMyIni;
uses dData, dUtils, dDXCC, fMain, uMyIni, uVersion;
function TfrmAdifImport.pochash(aaa:String):longint;
var z,x:longint;
@ -704,6 +704,8 @@ begin
Writeln(f,'Internet: http://www.cqrlog.com');
Writeln(f,'');
Writeln(f,'ERROR QSOs FROM ADIF IMPORT');
Writeln(f, '<PROGRAMID:6>CQRLOG');
Writeln(f, '<PROGRAMVERSION:',Length(cVERSION),'>',cVERSION);
Writeln(f,'');
Writeln(f,'<EOH>');

4
src/fExportProgress.pas
View File

@ -44,7 +44,7 @@ var
implementation
{ TfrmExportProgress }
uses dUtils, dData, uMyini, dDXCC;
uses dUtils, dData, uMyini, dDXCC, uVersion;
procedure TfrmExportProgress.FormCreate(Sender: TObject);
begin
@ -552,6 +552,8 @@ begin
Writeln(f);
Writeln(f, 'Internet: http://www.cqrlog.com');
Writeln(f);
Writeln(f, '<PROGRAMID:6>CQRLOG');
Writeln(f, '<PROGRAMVERSION:',Length(cVERSION),'>',cVERSION);
Writeln(f, '<EOH>');
i := 0;

4
src/feQSLUpload.pas
View File

@ -52,7 +52,7 @@ var
implementation
uses dUtils,dData,uMyIni, fPreferences;
uses dUtils,dData,uMyIni, fPreferences, uVersion;
procedure TfrmeQSLUpload.SockCallBack(Sender: TObject; Reason: THookSocketReason; const Value: string);
begin
@ -117,6 +117,8 @@ begin
Writeln(f, 'Copyright (C) ',YearOf(now),' by Petr, OK2CQR and Martin, OK1RR');
Writeln(f);
Writeln(f, 'Internet: http://www.cqrlog.com');
Writeln(f, '<PROGRAMID:6>CQRLOG');
Writeln(f, '<PROGRAMVERSION:',Length(cVERSION),'>',cVERSION);
Writeln(f);
Writeln(f,'<EQSL_USER'+dmUtils.StringToADIF(cqrini.ReadString('LoTW','eQSLName','')));
Writeln(f,'<EQSL_PSWD'+dmUtils.StringToADIF(cqrini.ReadString('LoTW','eQSLPass','')));