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

Timestamp:

Jun 14, 2010, 12:37:31 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixing uploads of PDF files

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas (modified) (1 diff)

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

@@ -702 +702 @@
   CallBroker;
   Screen.Cursor := SavedCursor;
-  RPCResult := RPCBrokerV.Results[0];
+  if RPCBrokerV.Results.Count > 0 then begin
+    RPCResult := RPCBrokerV.Results[0];
+  end else RPCResult := '';  
   result := (Piece(RPCResult,'^',1)='1');
   ImageTransferForm.Hide;