TFileStream an DLL übergeben

[sko1]

Hallo,

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

Die DLL hat dafür eine Funktion

Delphi-Quellcode:

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:

Zitat von DeddyH (Beitrag 1379466)

Bie der 0 bin ich gerade selbst nicht sicher.

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

Zitat:

Zitat von sko1 (Beitrag 1379466)

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

Delphi-Quellcode:

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.

[himitsu]

Neee, aber in der Überschrifft und im ersten Post hattest du mehrmals geschrieben, dass du das machen wolltest. :zwinker:
Nicht das du oder jemand Anderes beim nächsten Mal nochmal auf soeine Idee kommt.

[Luckie]

Zitat:

Zitat von sko1 (Beitrag 1379515)

Ich übergebe doch kein Delphi-Objekt (TFilestream oder TMemorystream) an die Dll

Doch hast du:

Delphi-Quellcode:

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

Lass dir fs.Size anzeigen und du wirst sehen, es ist die Größe des FileStream-Objektes.

[DeddyH]

Das möchte ich bezweifeln, dann hätte die Property ja keinerlei Sinn. Du meinst vermutlich SizeOf.

[Luckie]

Äh. Ja.

Trotzdem hat er im ersten Beitrag, das Objekt übergeben und nicht dessen Dateninhalt.

[DeddyH]

Und ich habe bereits im 2. Beitrag erwähnt, dass das falsch ist. Muss doch mal gut sein jetzt.

[Luckie]

Ich wollte ihm es nur noch mal deutlich machen, nachdem er vorhin gerade widersprochen hatte. ;) Aber jetzt ist alles gut.