Setsames Verhalten von TFileStream

[saschab]

Hallo zusammen,
ich habe mit folgendem Code meine Probleme und hoffe ihr könnt mir helfen :

Delphi-Quellcode:

Procedure Tfrm_main.SendtoPrinter(var Stream: TFileStream; var PrintStr: String);
begin
  CharToOEM(@Printstr[1], @Printstr[1]);
  Stream.write(PrintStr[1], length(Printstr)+1);
end;


procedure Tfrm_main.btn_print_labelClick(Sender: TObject);
var
   Stream: TFileStream;
   temp : String;
begin
  Stream := TFileStream.Create('LPT1', fmOpenWrite);
  temp := memo_test.Text;
  sendtoprinter(Stream, temp);
end;

Dieser Code soll die Steuersequenzen aus dem memo_test Memofeld an den Drucker senden.
Mein Problem ist nun Drücke ich den Knopf passiert nichts. Sobald ich aber meine Anwendung schliesse, Druckt er das Label aus das mit den Steuersequenzen generiert wurde (Barecode).
Weis vielleicht jemand wie ich es erreichen kann das er die Daten sofort sendet (das Label Druckt).


Ich bin total am Verzweifeln HILFE

[Christian Seehase]

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]

[SirThornberry]

eventuell liegts daran das du den Stream nicht freigibst und dieser eben erst dann beim schließen freigegeben wird und somit der vorgang abgeschlossen wird. Irgendwann hatte ich mal das gleiche problem wie du, weiß aber leider nicht mehr wie ichs gelöst hab.

[saschab]

Hi,
danke wede das morgen direkt mal ausprobieren.

[saschab]

Hi,
habe es eben getestet und es funktioniert.

DANKE !!!!!!!!!!!!!!!!!!!