Changeset 735 for cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas

Timestamp:

Apr 9, 2010, 9:13:04 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Template formulas will calculate even if responses have characters, bug fixes

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas (modified) (3 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas

@@ -675 +675 @@
   DropboxFile : AnsiString;
   CurrentFileSize : Integer;
+  ErrMsg          : string;
 begin
   // CallV('TMG DOWNLOAD FILE DROPBOX', ...);
@@ -687 +688 @@
 
   RPCBrokerV.Call;  //Move file into dropbox.
-  Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
-  CurrentFileSize := strtoint(Piece(RPCBrokerV.Results[0],'^',3));  //Piece 3 = file size
+  if RPCBrokerV.Results.Count > 0 then begin
+    Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
+    if Result = false then ErrMsg := Piece(RPCBrokerV.Results[0],'^',2);
+  end else begin
+    Result := false;
+    ErrMsg := 'Error communicating with server to retrieve image.';
+  end;
 
   if Result=true then begin
+    CurrentFileSize := strtoint(Piece(RPCBrokerV.Results[0],'^',3));  //Piece 3 = file size
     DropboxFile := ExcludeTrailingBackslash(DropboxDir) + '\' + FName;
     if ImageTransferForm.visible = False then ImageTransferForm.show;
@@ -705 +712 @@
                  mtError,[mbOK],0);
     end;
+  end else begin
+    MessageDlg('ERROR: '+ErrMsg,mtError,[mbOK],0);
   end;
 end;