PDF-Dokumente aus Delphi drucken

[Luckie]

Ich will mich mal hier dranhängen. Ich versuche auch ein PDF mit dem ActiveX Control auszudrucken. Klappt eigentlich ganz gut, nun ja mehr schlecht als recht. Nur wenn ich es aus einem Thread versuche bekomme ich folgende fehlermeldung zu sehen:

Zitat:

---------------------------
Acrobat plug-in.
---------------------------
Could not find Acrobat External Window Handler.
---------------------------
OK
---------------------------

Gebe ich zusätzlich vorher als src die Datei an bevor ich sie lade, dann kommt keine Fehlermeldung aber es tut sich nichts.

In einem Demo projekt hab eich es ohne Thread probiert, da geht es. Ich poste hie rmal meinen Code:
Thread:

Delphi-Quellcode:

function Thread(p: Pointer): Integer;
var
  Loop: Cardinal;
  MemStream: TMemoryStream;
  URL: string;
  PN: string;
  StartPage, MaxPages: Cardinal;
  SB: TStatusbar;
  IdHTTP: TIdHTTP;
  FileExt: string;
  PDF: TPdf;
  bPrint: Boolean;
  Dir: string;
  btnDownload, btnCancel: TButton;
  Filename: String;
begin
  Result := 0;
  Loop := 0;
  URL := PThreadParams(p)^.URL;
  PN := PThreadparams(p)^.PN;
  StartPage := PThreadParams(p)^.StartPage;
  MaxPages := PThreadParams(p)^.MaxPages;
  SB := PThreadParams(p)^.SB;
  IdHTTP := PThreadParams(p)^.IdHTTP;
  FileExt := PThreadParams(p)^.FileExt;
  Pdf := PThreadParams(p)^.PDF;
  bPrint := PThreadParams(p)^.bPrint;
  Dir := PThreadParams(p)^.Dir;
  btnDownload := PThreadParams(p)^.btnDownload;
  btnCancel := PThreadParams(p)^.btnCancel;
  Filename := Dir + PN + '_' + IntToStr(Loop) + '.' + FileExt;
  for Loop := StartPage to MaxPages do
  begin
    if bCancel = 1 then
      break;
    MemStream := TMemoryStream.Create;
    try
      SB.Panels[0].Text := 'Seite: ' + IntToStr(Loop);
      SB.Refresh;
      try
        IdHTTP.Get(URL + IntToStr(Loop), MemStream);
      except
        on E: Exception do
        begin
          Messagebox(0, Pointer(e.Message), APPNAME, MB_ICONSTOP);
          break;
        end;
      end;
      MemStream.SaveToFile(Filename);
    finally
      FreeAndNil(MemStream);
    end;
    if bPrint then
    begin
      //Form1.Pdf1.src := Filename;
      Form1.Pdf1.LoadFile(Filename);
      //PDF.printWithDialog;
    end;
  end;
  SB.Panels[0].Text := 'Seiten:';
  SB.Panels[1].Text := 'Fortschritt:';
  btnDownload.Enabled := True;
  btnCancel.Enabled := False;
  FreeMem(p, sizeof(TThreadParams));
end;

Start des Thread:

Delphi-Quellcode:

procedure TForm1.DownloadEspacenet;
var
  URL: string;
  ThreadParams: PThreadParams;
  hThread: THandle;
  ThreadID: Cardinal;
begin
  GetMem(ThreadParams, sizeof(TThreadParams));
  if Assigned(ThreadParams) then
  begin
    URL := ESPACENETURL + '?PN=' + edtPN.Text + '&ID=' + edtID.Text + '&PG=';
    ThreadParams.URL := URL;
    ThreadParams.PN := edtPN.Text;
    ThreadParams.StartPage := StrToInt(edtPagesStart.Text);
    ThreadParams.MaxPages := StrToInt(edtPages.Text);
    ThreadParams.SB := Statusbar1;
    ThreadParams.IdHTTP := IdHTTP1;
    ThreadParams.FileExt := 'pdf';
    ThreadParams.Dir := edtDir.Text;
    ThreadParams.btnDownload := btnDownload;
    ThreadParams.btnCancel := btnCancel;
    ThreadParams.PDF := PDF1;
    ThreadParams.bPrint := chkPrint.Checked;
    hThread := BeginThread(nil, 0, Thread, ThreadParams, 0, ThreadID);
    if hThread <> 0 then
    begin
      btnDownload.Enabled := False;
      btnCancel.Enabled := True;
    end;
  end;
end;

Ach so und noch was: printAll oder nur Print geht auch nicht.