also, der MemoryStream wird in der
Dll erzeugt, nun möchte ich nicht ihn zurück geben, sondern den pointer auf dieses, sodass ich in der
dll mit hilfe der "objektvariable", die nur ein pointer auf das Objekt ist, auf dieses zugreifen. Ohne dabei das gesammte objekt zu übergeben kann ich somit zumindest den link auf es weiter geben.
Es ist ganz einfach:
OpenFile('Beispiel.txt',@Data); //Data soll nun den Pointer auf den MemoryStream von Beispiel.txt enthalten.
Hier die Funktion :
Delphi-Quellcode:
function OpenFile(WaveFile : PAnsiChar; PData : Pointer) : Cardinal; stdcall; //PData ist nun der Pointer auf Data
var
Stream : TMemoryStream;
begin
{ Data aus PData ermitteln }
Stream := TMemoryStream.Create;
{ Prüfen ob Datei existiert }
if FileExists(WaveFile) then begin
{ Fehler abfangen }
try
{ Datei öffnen und laden }
Stream.LoadFromFile(WaveFile);
except
{ Fehler, Datei konnte nicht geöffnet werden }
Result := READ_ERROR; Exit;
end;
{ Data auf PData zuweisen }
PData^ := @Stream; // Nun weise ich Data den Pointer auf Stream zu.
// Allerdings Funktioiert das nicht
{ Alles Klar }
Result := NO_ERROR;
end else begin
{ Fehler : Datei nicth gefunden }
Result := FILE_NOT_FOUND;
{ PData ist nil }
PData := nil;
end;
end;