DLL Programmierung - Wie übergebe ich am sinnvollsten meine Daten?

[Ghostwalker]

Ähmmm....ich bin zwar schon einige Zeit raus aus Delphi (fang grad wieder damit an), aber ist das nicht etwas kompliziert und aufwendig ?

Ich würde banalerweise einfach eine Unit machen, die die entsprechenden Record deklarationen enthält,
die sowohl in der DLL, als auch im Programm mit einbinden und dann das ganze ist gelutscht ?


Beispiel:

Code:

Unit SharedTypes;

INTERFACE

TYPE

   pUser = ^TUser;
   TUser = record
              Username : widestring;
              Loginname: widerstring;
              {und was halt noch so rein soll} 
           end

Die Funktionen der DLL geben einfach pUser als Rückgabewert zurück. Und damit kannst du ganz
normal im Hauptprogramm arbeiten....


oder überseh ich da was ?

[Aviator]

So habe ich es ja aktuell. Nur Blup meinte ja das, wenn man schon mit Interfaces arbeitet, auch gleich alles mit Interfaces machen sollte. Um das mal vereinfacht auszudrücken. So wollte ich das dann machen.

Aktuell habe ich ja alles mit Records aufgebaut. Das funktioniert auch.

Nur würde mich jetzt interessieren wie es mit Interfaces funktioniert wenn ich schon den Vorschlag gemacht bekomme. So ganz habe ich das System noch nicht durchschaut.

[Blup]

Mir ist nicht klar warum du mit PWideChar arbeiten willst, aber nicht mit WideString.
In neueren Delphiversionen ist String = UnicodeString definiert. Einer direkten Zuweisung im Setter oder Getter steht da nichts im Wege.
Um die Speicherverwaltung und Typkonvertierung sollte sich Delphi doch eigentlich selbst kümmern?

Delphi-Quellcode:

  IDMSUserExchange = interface(IInterface)
  [GUID]
    function  GetUserName: WideString;
    procedure SetUserName(const AValue: WideString);
    property UserName: WideString read GetUserName write SetUserName;
  end;

   TDMSInternalUserData = class(TInterfacedObject, IDMSUserExchange)
   private
     FUserName: string; // <-- Hier string
   protected
{$REGION 'IDMSUserExchange'}
     function  GetUserName: WideString;
     procedure SetUserName(const AValue: WideString);
{$ENDREGION}
   end; 

implementation
   
function TDMSInternalUserData.GetUserName: WideString;
begin
  Result := FUserName;
end;
 
procedure TDMSInternalUserData.SetUserName(const AValue: WideString);
begin
  FUserName := AValue;
end;

procedure TuWasMitUserData(AUserData: IDMSUserExchange; const AValue: string);
begin
  AUserData.UserName := AValue;
end;

Wenn die Arbeit mit Objekten sein muss, kannst du aber für die Objekte Properties definieren, die andere Typen zur Verfügung stellen als das Interface.
Ich sehe dafür aber keine Notwendigkeit.

Delphi-Quellcode:

   TDMSInternalUserData = class(TInterfacedObject, IDMSUserExchange)
   private
     FUserName: string; // <-- Hier string
   protected
{$REGION 'IDMSUserExchange'}
     function  GetUserName: WideString;
     procedure SetUserName(const AValue: WideString);
{$ENDREGION}
   public
     property UserName: string read FUserName write FUserName;
   end;