Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Setsames Verhalten von TFileStream

  Alt 29. Jun 2004, 21:26
Moin Sascha,

ich vermute mal, dass es daran liegt, dass Du die Datei nicht schliesst.
Nach dem SendToPrinter fehlt noch ein FreeAndNil(Stream), und wenn Du das Programm beendest geschieht das automatisch.
Ausserdem solltest Du das ganze in den üblichen Resourcenschutzblock einbinden.

Delphi-Quellcode:
begin
  Stream := TFileStream.Create('LPT1', fmOpenWrite);
  try
    temp := memo_test.Text;
    sendtoprinter(Stream, temp);
  finally
    FreeAndNil(Stream);
  end;
end;
BTW: Belegte Resourcen sollte man auch immer wieder gezielt freigeben.

[EDIT]
TFileStream verhält sich also völlig korrekt
[/EDIT]
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat