Changeset 800 for cprs/branches/tmg-cprs/CPRS-Chart/UploadImages.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/UploadImages.pas (modified) (17 diffs)

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

@@ -84 +84 @@
     PolTimer: TTimer;
     DKLanguageController1: TDKLanguageController;
+    btnPickPDF: TBitBtn;
     procedure UploadButtonClick(Sender: TObject);
     procedure PickImagesButtonClick(Sender: TObject);
@@ -95 +96 @@
     procedure FormRefresh(Sender: TObject);
     procedure PolTimerTimer(Sender: TObject);
+    procedure btnPickPDFClick(Sender: TObject);
+    procedure FormHide(Sender: TObject);
   private
     { Private declarations }
     Bitmap : TBitmap;
     Picture : TPicture;
+    FAllowNonImages : boolean;
     FUploadedImagesList : TStringList; //List of strings of images succesfully uploaded.
     function MakeThumbNail(Info: TImageInfo): boolean;
@@ -105 +109 @@
     //procedure LoadNotesList();
     function UploadFile(Info: TImageInfo; DelOrig : boolean): boolean;
+    function CopyFileToTemp(FNamePath : string) : string;
     procedure UploadChosenFiles();
     function ProcessOneLine(Line : string) : string;
@@ -116 +121 @@
                            DOS, Provider, Title : string; FilePaths : TStrings) : AnsiString;
     procedure FinishDocument(UploadNote : TAutoUploadNote);
+    procedure SetAllowNonImages(Value : boolean);
   public
     { Public declarations }
@@ -124 +130 @@
     property ScanDir : String read FScanDir write SetScanDir;
     property UploadedImages : TStringList read FUploadedImagesList;
+    property AllowNonImages : boolean read FAllowNonImages write SetAllowNonImages;
   end;
 
@@ -142 +149 @@
         rTIU,
         rHTMLTools,
+        fImagePickPDF, //for PDF picker dialog
         uTMGOptions
         ;
@@ -622 +630 @@
     try
       WebBrowser.Navigate(frmImages.NullImageName);
+      sleep(500); //Give Webbrowser time to release any browsed document.
     except
       on E: Exception do exit;
@@ -645 +654 @@
       for i := 0 to OpenFileDialog.Files.Count-1 do begin
         FilesToUploadList.Items.Add(OpenFileDialog.Files.Strings[i]);
+      end;
+    end;
+  end;
+
+  procedure TUploadForm.btnPickPDFClick(Sender: TObject);
+  var i : integer;
+  begin
+    if not Assigned(frmImagePickPDF) then begin
+      frmImagePickPDF := TfrmImagePickPDF.Create(Self);   //free'd in OnHide
+    end;
+    if frmImagePickPDF.Execute then begin
+      for i := 0 to frmImagePickPDF.Files.Count-1 do begin
+        FilesToUploadList.Items.Add(frmImagePickPDF.Files.Strings[i]);
       end;
     end;
@@ -678 +700 @@
     Bitmap.Width := 64;
     Picture := TPicture.Create;
-
+    FAllowNonImages := true;
     FUploadedImagesList := TStringList.Create;
 
@@ -717 +739 @@
     if SelectedItem > -1 then begin
       FileName := FilesToUploadList.Items[SelectedItem];
-      //Application.MessageBox('Here I would pass to IE','NOte');
+      if UpperCase(ExtractFileExt(FileName))='.PDF' then begin
+        FileName := CopyFileToTemp(FileName);  //returns '' if copy fails
+        if FileName = '' then FileName := frmImages.NullImageName;
+      end;
     end else begin
       FileName := frmImages.NullImageName;
@@ -728 +753 @@
   end;
 
+  function TUploadForm.CopyFileToTemp(FNamePath : string) : string;
+  var DestFile : string;
+      lpDestFile : PAnsiChar;
+      lpSourceFile : PAnsiChar;
+  begin
+    DestFile := frmImages.CacheDir + '\tempbrowseable' + ExtractFileExt(FNamePath);
+    lpDestFile := PAnsiChar(DestFile);
+    lpSourceFile := PAnsiChar(FNamePath);
+    if CopyFile(lpSourcefile,lpDestFile,LongBool(FALSE)) = TRUE then begin  //0=success
+      Result := DestFile;
+    end else begin
+      Result := '';
+    end;
+  end;
+
   procedure TUploadForm.FormRefresh(Sender: TObject);
   begin
@@ -735 +775 @@
       on E: Exception do exit;
     end;
+  end;
+
+  procedure TUploadForm.FormHide(Sender: TObject);
+  begin
+    FormRefresh(Sender);
+    frmImagePickPDF.Free;
   end;
 
@@ -877 +923 @@
     i : integer;
     Location : string;
-   
+
   begin
     Result := '';  //default to success for function
@@ -989 +1035 @@
     until FindNext(Found) <> 0;   
     FindClose(Found);  
-    FilesList.Sort;  //puts filenames in alphanumeric order 
+    FilesList.Sort;  //puts filenames in alphanumeric order
 
     //Now process images in correct order.
@@ -1157 +1203 @@
         end;
         AllFiles.AddObject(pFInfo.FPath,pFInfo);  //Store filename, to allow sorting on this.
-      until FindNext(Found) <> 0;   
+      until FindNext(Found) <> 0;
       AllFiles.Sort; // Sort on timestamp --> put in ascending alpha filename order
 
@@ -1171 +1217 @@
         if pFInfo.SBarCode <> '' then begin  //Found a new barcode
           LastFileTimeStamp := CurFileTimeStamp;
-          //Note: The expected format of barcode must be same as that 
+          //Note: The expected format of barcode must be same as that
           //      created by TfrmPtLabelPrint.PrintButtonClick:
           //      70685-12-31-2008-73-6-1302-0
@@ -1277 +1323 @@
   end;
 
+  procedure TUploadForm.SetAllowNonImages(Value : boolean);
+  begin
+    FAllowNonImages := Value;
+    btnPickPDF.Enabled := Value;
+    PickOtherButton.Enabled := Value;
+  end;
+