PChar auf Text-File zeigen lassen

[Jazzman_Marburg]

Hallo Zusammen!

Stecke mal wieder tief im Unwissen -- und hoffe wieder auf eure Hilfe.

Eine Funktion erwartet zwei Parameter: "aBuf: PChar; aLen: integer"

Nun möchte ich den Inhalt einer Text-Datei in aBuf, und ihre Länge in aLen laden - "laden" ist das falsche Wort, ich möchte das aBuf auf den Inhalt der Text-Datei und aLen auf die Länge zeigen.

Da ich mit PChar keine Erfahrung habe, meine Frage: Wie geht das wohl?

Muß ich die Text-Datei erst laden, und danach den aBuf "darauf zeigen" lassen... (und wenn ja -- wie?).

Bin über jeden Hinweis dankbar!

Vielen Dank & Gruß
Jazzman

[shmia]

Es gibt da eine nützliche Funktion, mit der man eine Datei in einen String laden kann:

Delphi-Quellcode:

function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    fs.Free;
  end;
end;

Und dann:

Delphi-Quellcode:

var
  aBuf: PChar; 
  aLen: integer;
  s : AnsiString;
begin
  s := FileToString('testdatei.txt');
  aBuf := PAnsiChar(s);
  aLen := Length(s);
  ...
end;

PS: hier noch die Umkehrfunktion StringToFile():

Delphi-Quellcode:

procedure StringToFile(const FileName: string; const Contents: AnsiString);
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmCreate);
  try
    Len := Length(Contents);
    if Len > 0 then
      fs.WriteBuffer(Contents[1], Len);
  finally
    fs.Free;
  end;
end;

[himitsu]

Ja, du mußt die Datei erst irgendwo in einen Puffer/Buffer laden.

Entweder mit einem TFileStream in einen eigenen Puffer laden
oder du nimmst einen TMemoryStream und kannst davon dann direkt den .Pointer (eventuell noch nach PChar casten) und .Size für die beiden Parameter deiner Funktion verwenden.

PS: zum Thema PChar ... Welche Delphi-Version nutzt du denn?
Denn ab Delphi 2009 solltes du aufpassen, da dort ein Char aus 2 Byte besteht.

[Jazzman_Marburg]

Ihr seid super!

Lieben Dank!

Gruß
Jazzman

[Jazzman_Marburg]

Ähmm...

Nochmal eine kleine Nachfrage zu:

Zitat von shmia:

Delphi-Quellcode:

var
  aBuf: PChar; 
  aLen: integer;
  s : AnsiString;
begin
  s := FileToString('testdatei.txt');
  aBuf := PAnsiChar(s);
  aLen := Length(s);
  ...
end;

Wenn ich das so einbaue, und die 'testdatei.txt' ist 13KB groß, dann sehe ich im Debugger, dass aBuf = 'ÿþD' (FFFE -- Unicode BOM), aber wo ist denn der Rest des Files?
Ich dachte aBuf zeigt auf den gesamten File und nicht nur auf die ersten 4 Bytes des Files?!

Oder missverstehe ich da was?

Danke nochmals!
Jazzman

[Teekeks]

Ein PChar zeigt auf das erste Zeichen deines Strings.
Deswegen benötigt der auch die Länge des Strings

[Jazzman_Marburg]

Achja, wieder was gelernt.

Danke & Gruß
Jazzman

[himitsu]

Zitat:

dann sehe ich im Debugger, dass aBuf = 'ÿþD' (FFFE -- Unicode BOM)

Der Debugger hält natürlich im PAnsiChar bei der ersten #0 an, da diese ja das Ende des AnsiString anzeigt (wenn man keine Längenangabe verwendet)
und bei einem UnicodeText in einem AnsiString kann es nunmal viele Nullen geben.

[jaenicke]

Nebenbei: Mit MMFs kann man auch direkt mit dem Dateiinhalt arbeiten. Für so kleine Dateien ist das egal, aber wenn größere Dateien eingelesen und bearbeitet werden sollen, dann kann man damit eine sehr starke Leistungssteigerung erreichen.