Pointer und Dll

[Desmulator]

Hallihallo,

also ich komme direkt zur sache:
ich will dass man an eine dll funktion einen Pointer auf einen Pointer übergibt, sodass man immer nur den pointer übergeben muss um mit dem "object" zu arbeiten.

Das heist auf delphi:

Delphi-Quellcode:

type
   PFileData = Pointer;

Data : PFileData;

OpenFile('Beispiel.txt',@Data);

so und die Dll funktion

Delphi-Quellcode:

function OpenFile(WaveFile : PAnsiChar; PData : PAudioData) : Cardinal; stdcall;
var
  Data : TMemoryStream;
begin
  { Data aus PData ermitteln }
  Data := TMemoryStream.Create;

  { Prüfen ob Datei existiert }
  if FileExists(WaveFile) then begin
    { Fehler abfangen }
    try
      { Datei öffnen und laden }
      Data.LoadFromFile(WaveFile);
    except
      { Fehler, Datei konnte nicht geöffnet werden }
      Result := READ_ERROR; Exit;
    end;

    { Data auf PData zuweisen }
    PData^ := @Data;

    { Alles Klar }
    Result := NO_ERROR;


  end else begin
    { Fehler : Datei nicth gefunden }
    Result := FILE_NOT_FOUND;
    { PData ist nil }
    PData := nil;
  end;
end;

Das ziel ist, dass ich später einfach CloseFile(Data) machen kann oder Read(Data)...
also ich will das Test später einen pointer auf den TMemoryStream ist

[1234588]

um ehrlich zu sein hab ich kaum verstanden was du willst.
ich gehe aber davon aus, das du einen pointer auf ein TMemoryStream objekt an deine dll uebergeben willst.

Code:

var
  ms: TMemoryStream;

es sieht zwar nicht so aus, aber ms ist in dem fall schon ein pointer. ein typisierter pointer wenn man so will. du musst im grunde nur ms als argument uebergeben und hast dann vollen zugriff auf das objekt. die klasse muss allerdings auch in deiner dll bekannt sein

[Desmulator]

also ich will, dass man eine variable übergibt, die auf ein dll internes objekt zeigt, ohne dass anwenung davon mit bekommt. also übergebe ich den pointer auf einen pointer, damit d ich den pointer auf dieses objekt ( den memorystream ) setzen kann... aber wie setze ich das um?

[1234588]

sry, ich komm noch nicht ganz mit. du willst auf das memory stream objekt in einer dll zugreifen? dann exportiere einfach die klasse. und ueberhaupt, welche anwendung soll davon nichts mitbekommen?

Zitat:

also übergebe ich den pointer auf einen pointer

pointer auf einen pointer? warum nicht einen pointer, der auf einen pointer zeigt, der wiederrum auf einen pointer zeigt?

[Bernhard Geyer]

Austausch von "lebenden" Objekten (alles as von TObject abgeleitet) ist ohne Verwendung von Runtimepackages ist nicht zu empfehlen. Es wird an allen möglichen stellen Krachen da TObject von DLL <> TObject von Exe und jedlicher is/as-vergleich (der u.a. auch im Quellcoder der fertigen Komponenten steckt) fehl schlagen wird.

[Desmulator]

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;

[thkerkmann]

Hi,

nonono so geht das nicht:

Stream: tMemoryStream; ist bereits ein Pointer. Wenn Du den zurückgeben willst, dann musst du nicht
PData := @Stream; sondern
PData := Stream; verwenden.
Allerdings wie bereits erwähnt, ist das kein sauberes Verfahren.

Gruss