Druckdateien (*.prn) drucken

[quasinix]

Hallo shmia,
das geht ja richtig flott! Super, dank Dir! Ich verstehe nur nicht, daß man einem String eine Länge zuweisen kann UND was das s[1] bei dem Einlesen bedeutet.

Beim setlength wird doch der "Array" auf eine die gewünschte Länge gebracht, d.h. er hat strom.size Felder. Beim Einlesen weist man doch mit s[1] auf das erste der Felder zu und nicht auf alles. Kannste das noch erklären, wenn Du Lust und Zeit hast ????

Mein Code sieht jetzt so aus:

Delphi-Quellcode:

procedure TDruckdateiblitz_Form.Button1Click(Sender: TObject);
var s : string;
var wert : char;
var i,laenge : longint;
var strom : tfilestream;
begin
  strom := tfilestream.Create('d:\druck.prn',fmopenread);
  try
     SetLength(s, strom.Size);  // Speicher beschaffen
     strom.Readbuffer(s[1], strom.Size);  //en-Block lesen
   finally
      strom.Free;
  end;

  rawprint(druckername.caption,'Hallo',s);
  showmessage('Fertig!');

end;

Gruß,

quasinix