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

uploading QSO to HamQTH is working

Browse Source
This commit is contained in:
Petr Hlozek 2013-12-29 16:31:33 +01:00
parent 3ea9b8e689
commit a295b25b2f
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/fLogUploadStatus.pas
View File

@ -170,11 +170,27 @@ begin
end
else if (Command = 'UPDATE') then
begin
ToMainThread('Deleting '+dmLogUpload.Q.FieldByName('old_callsign').AsString,'');
dmLogUpload.PrepareDeleteHeader(WhereToUpload,dmLogUpload.Q.Fields[0].AsInteger,data);
UpSuccess := dmLogUpload.UploadLogData(dmLogUpload.GetUploadUrl(WhereToUpload,Command),data,Response,ResultCode);
if UpSuccess then
begin
Response := dmLogUpload.GetResultMessage(WhereToUpload,Response,ResultCode,FatalError);
if FatalError then
begin
ToMainThread('Could not delete original QSO data!','');
Break
end;
ToMainThread('Uploading '+dmLogUpload.Q.FieldByName('callsign').AsString,'');
dmLogUpload.PrepareInsertHeader(WhereToUpload,dmLogUpload.Q.FieldByName('id_cqrlog_main').AsInteger,data);
UpSuccess := dmLogUpload.UploadLogData(dmLogUpload.GetUploadUrl(WhereToUpload,Command),data,Response,ResultCode)
end
else
ToMainThread('Update failed! Check Internet connection','')
end
else if (Command = 'DELETE') then
begin
ToMainThread('Deleting '+dmLogUpload.Q.FieldByName('callsign').AsString,'');
ToMainThread('Deleting '+dmLogUpload.Q.FieldByName('old_callsign').AsString,'');
dmLogUpload.PrepareDeleteHeader(WhereToUpload,dmLogUpload.Q.Fields[0].AsInteger,data);
UpSuccess := dmLogUpload.UploadLogData(dmLogUpload.GetUploadUrl(WhereToUpload,Command),data,Response,ResultCode)
end;