Drucken der Datei funktioniert nicht...

[McReier]

Hallo zusammen,
ich will eine Datei per PrintDialog auslösen. Leider kommt nach dem PrintDialg folgende Fehlermeldung:

Fehlermeldung

Fehlermeldung.jpg (15.04 KiB) 1247 mal betrachtet

Hier mein Quelltext:

Code: Alles auswählen

procedure TForm15.Button2Click(Sender: TObject);
 
 CONST VerticalSpacing = 150;
 CONST GeneralFontSize = 16;
 VAR PagePosition : Integer;
     Image: TImage;
 begin
 If PrintDialog1.Execute then
   begin
    MyPrinter.BeginDoc;
    Image.Picture.LoadFromFile('improves.jpg');
    MyPrinter.Canvas.Draw(10,10,Image.Picture.Graphic);
    Myprinter.enddoc;
   end;
 end;        
 

Die Zeile 504 ist "if Printing<>Value then". Hier der Quelltext, den Lazarus im Quelltexteditor generiert:

Code: Alles auswählen

//Raise error if Printer.Printing is not Value
procedure TPrinter.CheckPrinting(Value: Boolean);
begin
  if Printing<>Value then
  begin
    if Value then
      raise EPrinter.Create('Printer is not printing')
    else
      raise Eprinter.Create('Printer is printing');
  end;
end; 

Ich danke Euch! McReier

[theo]

Was ist MyPrinter?
Nimm einfach "Printer", das Objekt wird automatisch erstellt. Kannst du ohne Create und Free benutzen.

[McReier]

Was ist MyPrinter?
Nimm einfach "Printer", das Objekt wird automatisch erstellt. Kannst du ohne Create und Free benutzen.

Kommt aus meinen ersten Versuchen mit: http://wiki.freepascal.org/Using_the_printer/de
Auch wenn ich "Printer" verwende kommt:

Fehlermeldung2.jpg (17.41 KiB) 1242 mal betrachtet

In

Code: Alles auswählen

 Image.Picture.LoadFromFile('improves.jpg'); 

muss noch der Wurm drinnen sein...

[theo]

Ja gut, aber jetzt wird es wieder ein bisschen Grundlagenmässig.
Das Image solltest du doch vor dem Gebrauch createn, oder? Das ist allgemein so mit den Objekten.
Aber ein TImage ist eigentlich eine Komponente zum Anzeigen der Bilder auf dem Formular.
Ein TPicture, TBitmap bzw. ein TJPEGImage wäre besser geeignet.

[McReier]

Ja gut, aber jetzt wird es wieder ein bisschen Grundlagenmässig.
Das Image solltest du doch vor dem Gebrauch createn, oder? Das ist allgemein so mit den Objekten.
Aber ein TImage ist eigentlich eine Komponente zum Anzeigen der Bilder auf dem Formular.
Ein TPicture, TBitmap bzw. ein TJPEGImage wäre besser geeignet.

Hallo Theo,
danke für Deine Hinweise, nun funktionierts