TFileStream an DLL übergeben

[sko1]

Hallo,

ich möchte einen Filestream an eine DLL übergeben.

Die DLL hat dafür eine Funktion
procedure SetFileData(Data: Pointer; DataLen: int64); stdcall; und aufgerufen wird dies dann im Programm mit

Delphi-Quellcode:

  
fs := TFilestream.Create(Filename,fmOpenRead);
SetFileData(@fs,fs.Size);

In der DLL dann soll das Ganze auf Platte

Delphi-Quellcode:

procedure SetFileData(Data: Pointer; DataLen: int64); stdcall;
var
  Dateiname: string;
  fs: TFileStream;
begin
 Dateiname := TPath.getsharedDocumentspath + TPath.DirectorySeparatorChar + 'meineTestdatei.txt';
fs := TFileStream.Create(Dateiname, fmCreate);
fs.Write(Data^, DataLen);
fs.free;

Leider ist meineTestDatei leer (0 Byte!)

Wo liegt der Fehler?

Ciao
Stefan

[DeddyH]

Du willst ja nicht die Stream-Instanz übergeben, sondern die Daten, die diese enthält. Ich würde einen TMemoryStream verwenden, der hat eine Memory-Eigenschaft, wo die Daten drinstehen.

[sko1]

... und wie würde das aussehen?

Auch mit Übergabe eines array of byte bekomme ich Probleme!

Ciao
Stefan

[DeddyH]

Aus dem Hut würde ich sagen:

Delphi-Quellcode:

var 
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(...);
    Stream.Position := 0;
    SetFileData(Stream.Memory{[0]}, Stream.Size);
  finally
    Stream.Free;
  end;
end;

Bie der 0 bin ich gerade selbst nicht sicher.

[TiGü]

Zitat von DeddyH:

Bie der 0 bin ich gerade selbst nicht sicher.

Ne, ohne [0]. Memory ist schon nen Pointer.

Zitat von sko1:

Auch mit Übergabe eines array of byte bekomme ich Probleme!

SetFileData(PByte(DeineArrayVariable[0]), Length(DeineArrayVariable));

[sko1]

Zitat:

Stream.Position := 0;
SetFileData(Stream.Memory, Stream.Size);

funktioniert hervorragend, danke!
Das Position kann man sich sparen, es wird ja nur der Anfang und die Länge übergeben, egal wo der Zeiger im Stream steht.

Ciao
Stefan

[DeddyH]

Die Macht der Gewohnheit

[himitsu]

Und nur weil es so im Titel steht.

Man reicht NIEMALS nie keine Delphi-Objekte über Modulgrenzen (DLL oder EXE) hinweg.


SharedMemory ginge eventuell noch, aber SharedRTTI/-TypeInfo gibt es eben nicht,
außer bei Verwendung von Packages (BPL).

[sko1]

Ich übergebe doch kein Delphi-Objekt (TFilestream oder TMemorystream) an die Dll sondern einen Pointer auf die Daten darin und die Länge der Daten....

Übersehe ich da nun etwas?
Oder hätte der Threadtitel nur besser "Inhalt eines TFilestream an Dll übergeben" heissen sollen?

Ciao
Stefan

[mkinzler]

Ist das eine Dll von Dir? Dann würde ich den Stream über das IStream-Inteface übergeben.