Memo text ausdrucken

[DeddyH]

Tu Dir und uns mal einen Gefallen: wenn die Fehlermeldung kommt, drückst Du STRG+C, erstellst hier einen neuen Beitrag und drückst dort STRG+V. Damit sehen wir dann den ganz genauen Wortlaut.

[Finki]

Ich kann nix aus der Fehler Meldung raus kopieren. Aber ich kann euch ein Bild (Screenshot) hochladen. Oder was is besser kann beides erst daheim machen (in 15min).

[Finki]

Also hier ist die Meldung

[DeddyH]

Interessant, das sieht nach Speicherfehler aus. Die Printer-Instanz ist aber gültig, oder muss die in Lazarus von Hand instanziert werden?

[Finki]

????????

was meinst du damit?

die printers.pas ist vorgegeben da hab ich nix geändert

[DeddyH]

Ich meinte: wenn ich in Delphi auf Printer zugreife, wird eine Instanz von TPrinter erstellt, sofern es sie vorher noch nicht gab. Sollte das unter Lazarus nicht so sein (was ich allerdings nicht glaube), dann greifst Du auf ein Objekt zu, das gar nicht da ist. Ich weiß nicht, ob das Folgende funktioniert, aber einen Versuch wäre es wert:

Delphi-Quellcode:

var
  MyPrinter: TPrinter;
begin
  MyPrinter := TPrinter.Create;
  try
    MyPrinter.BeginDoc;
    try
      MyPrinter.Canvas.TextOut(100, 100, 'Testdruck');
    finally
      MyPrinter.EndDoc;
    end;
  finally
    MyPrinter.Free;
  end;
end;

[Finki]

Hey (cool) jetzt kommt der Fehler weiter vornen in der printers.pas

in Zeile 303

Code:

constructor TPrinter.Create;
begin
  if ClassType=TPrinter then
    raise Exception.Create('TPrinter is an abstract base class.'
    +' Please use a printer implementation like the package printers4lazarus.');
  Inherited Create;
  fPrinterIndex:=-1;  //By default, use the default printer
  fCanvas:=nil;
  fPaperSize:=nil;
  fTitle:='';
end;

also ich denke Lazarus mach das von allein, oder?