TCollection = not TCollection ?

[EWeiss]

Erst mal vorab habe noch keine Erfahrungen mit TCollection in Delphi gesammelt.
Erst mal was code

Delphi-Quellcode:

    for ICtrl := 0 to FParentObj.ComponentCount - 1 do
    begin
      Ctrl :=  FParentObj.Components[ICtrl];
      sCtrl := Ctrl.ClassName;

      If (sCtrl = 'TComboBox')  or
         (sCtrl = 'TComboBoxEx')  or
         (sCtrl = 'TDBLookupCombo') or
         (sCtrl = 'TDriveComboBox') then
      begin
         CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PWideChar(sCtrl), nil);
      end;

    end;

Ich enumeriere alle Komponente die sich in der Anwendung befinden.
Da ich nicht ohne weiteres an das Handle der Combo komme hole ich es unter verwendung von FindWindowEx erst ein.
Nun möchte ich dieses einer Collection hinzufügen. (erste bzw. Aktuelle Idee)

Aber eine TCollection in Delphi kennt keine Identifikationsnummer bei der verwendung von Add
Ist es überhaupt sinnvoll dafür TCollection zu verwenden?Oder einfach über ne einfache Liste..

Delphi-Quellcode:

CtrlType: TCollection;
CtrlType.Add(1, CtrHwnd);// <<< schade geht nicht!

Ich wollte quasi die Combos anhand der Nummer später identifizieren.

gruss

[Deep-Sea]

TCollection lohnt sich hauptsächlich dafür, wenn sie zu einer Komponente gehört deren Kindelemente ebenfalls im OI bearbeitet werden sollen.

[EWeiss]

Zitat:

Zitat von Deep-Sea (Beitrag 1110325)

TCollection lohnt sich hauptsächlich dafür, wenn sie zu einer Komponente gehört deren Kindelemente ebenfalls im OI bearbeitet werden sollen.

Wenn ich das richtig verstehe meinst du so etwas wie "BackColor" der jeweiligen komponente?
Das ist auch noch eins meiner problem da ich ja so ohne weiteres nicht an die Hintergrundfarbe komme bzw.. setzen kann.

Daher wollte ich über TCollection gehen um die Eigenschaften der Combo verändern zu können.
So wie ich gelesen habe beinhalten diese ja selbst Collection ... oder hab ich da was falsch verstanden?

So wie hier von Luckie schon gesagt

Zitat:

Zitat von Luckie (Beitrag 1110152)

Moment. Deine DLL kennt doch das Form-Objekt gar nicht, weil sie einen anderen Speichermanager hat. Das heißt du kannst kein Objekt an einer DLL übergeben. Es sei denn du nutz die Sharemem.dll von Borland als Speichermanager.

Komme ich so ohne weiteres nicht an die objeke ran.

gruss

[Deep-Sea]

Kann es sein, dass du das mit Property-Editoren verwechselst?

Beispiel Property-Editor: TForm.Color
Beispiel Collection: TListView.Columns

[EWeiss]

Zitat:

Zitat von Deep-Sea (Beitrag 1110331)

Kann es sein, dass du das mit Property-Editoren verwechselst?

Beispiel Property-Editor: TForm.Color
Beispiel Collection: TListView.Columns

Nein!

Manchmal wenn ich eine Idee habe und diese nicht umsetzbar ist (Delphi) vergleiche ist das schon mal gerne mit
meiner Muttersprache (VB) Hehehehee.... :thumb: :)

Meine also nicht den Property Editor.
Was eine Collection ist ist mir also schon klar.
Aber so wie es ausschaut macht es dann wohl keinen sinn :?

Muss diese idee dann wohl verwerfen.
Danke.

gruss

[Namenloser]

Kann es sein, dass du eigentlich eine Hashmap/Dictionary suchst? Neuere Delphi-Versionen mit Generics haben glaube ich von Haus aus eine Implementierung dabei (TDictionary wenn ich mich nicht irre), bei älteren Versionen musst du selbst was basteln oder finden (von mir schwirrt hier im Forum glaube ich auch noch eine Hashmap herum).

[EWeiss]

Zitat:

Zitat von NamenLozer (Beitrag 1110352)

Kann es sein, dass du eigentlich eine Hashmap/Dictionary suchst? Neuere Delphi-Versionen mit Generics haben glaube ich von Haus aus eine Implementierung dabei (TDictionary wenn ich mich nicht irre), bei älteren Versionen musst du selbst was basteln oder finden (von mir schwirrt hier im Forum glaube ich auch noch eine Hashmap herum).

Ich werd mal suchen und schauen ob es das ist.
Hab mir gestern mal ein handbuch mit TDictionary von Embarcadero runtergeladen wurde aber nicht so recht schlau daraus.

EDIT:

Hmm ..

Delphi-Quellcode:

procedure Add(const Key: TKey; const Value: TValue);

Sieht danach aus als wenn es das ist was ich suche bzw. umsetzen möchte.

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

gruss

[Stevie]

TCollection.Add erzeugt eine neue Instanz von der Klasse, die du beim TCollection.Create angegeben hast.

[Namenloser]

Zitat:

Zitat von EWeiss (Beitrag 1110354)

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

[Stevie]

Zitat:

Zitat von NamenLozer (Beitrag 1110358)

Zitat:

Zitat von EWeiss (Beitrag 1110354)

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

Ab Delphi 2009 siehe Generics.Collections.pas

[himitsu]

Delphi-Quellcode:

  for ICtrl := 0 to FParentObj.ComponentCount - 1 do
    begin
      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then
      begin
         CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PChar(Ctrl.ClassName), nil);
      end;

Und falls auch die Nachfahren der Kombonenten mit erwischt werden sollten, dann

Delphi-Quellcode:

 is

statt

Delphi-Quellcode:

 =

.


PS:

Zitat:

PWideChar

FindWindowEx + PChar + String
oder
FindWindowExW + PWideChar + WideString/UnicodeString

PSS: FindControl macht aus einem HWND ein TWinControl (aber nur in der eigenen Anwendung!)

[Namenloser]

Zitat:

Zitat von himitsu (Beitrag 1110361)

Delphi-Quellcode:

      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then

Wie wo wat? Das geht doch nicht! Das eine ist ein Objekt, das andere eine Klasse. Wenn schon

Delphi-Quellcode:

Ctrl.Classtype=...

.

Delphi-Quellcode:

is

ist aber sauberer imo.

[EWeiss]

Zitat:

Zitat von Stevie (Beitrag 1110359)

Zitat:

Zitat von NamenLozer (Beitrag 1110358)

Zitat:

Zitat von EWeiss (Beitrag 1110354)

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

Ab Delphi 2009 siehe Generics.Collections.pas

Habe zwar 2009 aber Generics lassen sich nicht einbinden.

gruss

[EWeiss]

Zitat:

Zitat von NamenLozer (Beitrag 1110363)

Zitat:

Zitat von himitsu (Beitrag 1110361)

Delphi-Quellcode:

      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then

Wie wo wat? Das geht doch nicht! Das eine ist ein Objekt, das andere eine Klasse. Wenn schon

Delphi-Quellcode:

Ctrl.Classtype=...

.

Delphi-Quellcode:

is

ist aber sauberer imo.

Hab ich was verpasst?
Um was geht's ?

Ich bekomme bei meiner abfrage das korrekte Handle.

und das geht gar nicht.

Delphi-Quellcode:

  for ICtrl := 0 to FParentObj.ComponentCount - 1 do
    begin
      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then
      begin
         CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PChar(Ctrl.ClassName), nil);
      end;

Dann müßte ich nämlich die Controls bzw.. dazugehörige Units mit einbinden.
Ich befinde mich in einer DLL und die Controls in der Anwendung.


gruss

[Stevie]

Zitat:

Zitat von EWeiss (Beitrag 1110365)

Zitat:

Zitat von Stevie (Beitrag 1110359)

Zitat:

Zitat von NamenLozer (Beitrag 1110358)

Zitat:

Zitat von EWeiss (Beitrag 1110354)

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

Ab Delphi 2009 siehe Generics.Collections.pas

Habe zwar 2009 aber Generics lassen sich nicht einbinden.

Wat?

Delphi-Quellcode:

uses
  Generics.Collections;

[EWeiss]

na gut hast mich überzeugt :)

gruss

[himitsu]

usp, ja

Delphi-Quellcode:

Ctrl.ClassType = TIrgendwas

or

Delphi-Quellcode:

Ctrl is TIrgendwas

PS: Nur weil Klassen den gleichen Namen haben, müssen sie nicht die selben Klassen-Deklarationen besitzen.
Geh mal raus und frage so lange, bis du einen "Frank" gefunden hast ... mit etwas Glück bin ich das.

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1110387)

usp, ja

Delphi-Quellcode:

Ctrl.ClassType = TIrgendwas

or

Delphi-Quellcode:

Ctrl is TIrgendwas

PS: Nur weil Klassen den gleichen Namen haben, müssen sie nicht die selben Klassen-Deklarationen besitzen.
Geh mal raus und frage so lange, bis du einen "Frank" gefunden hast ... mit etwas Glück bin ich das.

Da frag ich doch besser nach himitsu..
Ist bestimmt bekannter zumindest nicht 1 zu ner million bis ich dich finde.

Komme auf keinen grünen zweig da ich nicht auf die Objekte der Form direkt zugreifen kann.

gruss

[himitsu]

Es handelt sich doch um Komponenten einer Form der eigenen Anwendung?
Wenn ja, dann siehe PSS in #11.

PS: Von Delphi automatisch erzeugt form haben immer Application als Owner, weswegen sie sich auch über Application.Components finden lassen.
Alle anderen delphieigenen TopLevel-Forms sind nochmal über Screens.Forms aufzufinden.



Ach ja, die Variante über den ClassType hat noch den vorteil der Quellcodevervollständigung, beim Schreiben der Namen und das Ganze wird dann auch nochmal über den Kompiler validiert,
wärend man sich bei den Strings nur mal verschreiben braucht (sei es uch nur in der Groß-/Kleinschreibung) und schon wird der Vergleich schnell Mal was von FALSE behaupten.
Abgesehn davon, daß ein Integervergleich ein klein bissl optimaler ist, als ein Stringvergleich.

[EWeiss]

Zitat:

Es handelt sich doch um Komponenten einer Form der eigenen Anwendung?
Wenn ja, dann siehe PSS in #11.

Jain..
Die werden in einer DLL ausgewertet.
Das bereitet probleme.

Sagte ja schon ich sende SELF aber das was in Self(eigene Anwendung) steht kommt in der DLL nicht an.
Dann wäre es alles kein problem.

So wie hier von Luckie schon gesagt

Zitat:

Zitat von Luckie (Beitrag 1110152)

Moment. Deine DLL kennt doch das Form-Objekt gar nicht, weil sie einen anderen Speichermanager hat. Das heißt du kannst kein Objekt an einer DLL übergeben. Es sei denn du nutz die Sharemem.dll von Borland als Speichermanager.

Komme ich so ohne weiteres nicht an die objekte heran.

EDIT:

Zitat:

haben immer Application als Owner

Da muss ich nochmal was überdenken.

gruss.

[Medium]

"self" ist auch nur ein Pointer auf die aktuelle Instanz, im eigenen Adressraum. Für die DLL ist das, bestenfalls, ungültiger Speicher, oder eben zufällige Daten im Irgendwo.

[EWeiss]

Zitat:

Zitat von Medium (Beitrag 1110433)

"self" ist auch nur ein Pointer auf die aktuelle Instanz, im eigenen Adressraum. Für die DLL ist das, bestenfalls, ungültiger Speicher, oder eben zufällige Daten im Irgendwo.

Ist so auch nicht richtig..
Wenn ich self übergebe habe ich ja das gültige Handle der Anwendung aber nicht die Komponenten dieser.

Und sag mir nicht das wäre jetzt irgendein handle..
Die kann ich schon vergleichen :)

Ich glaube da muss ich langsam passen
Oder aber die Komponenten direkt übergeben wie bei der Scrollbar wenn es anders nicht geht.
Das gleich in VB sind 4 Zeilen dann habe ich alles was ich brauche.

Übersetzung von Delphi nach VB

Code:

Public Property Get ParentObj() As Object

Dim TempObj As Object

    If m_ParentObj = 0 Then
        Set ParentObj = Nothing
    Else
        CopyMemory TempObj , m_ParentObj, 4
        Set ParentObj = TempObj
        CopyMemory TempObj, 0, 4
    End If

End Property

Und schon habe ich zugriff auf alle Objekte die sich auf der Form befinden.
Warum ist das nur sooooo kompliziert in Delphi.

PS:
Aber wir kommen vom Thema ab. ;)

gruss

[EWeiss]

sorry push..

Bei der Übergabe der Combobox direkt funktioniert es aber ich will alle gleichzeitig verarbeiten können.

Warum geht das nicht?

Das will ich vermeiden

Delphi-Quellcode:

  ComboHook := HookedCombo_Create;
  if assigned(ComboHook) then
  begin
    ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook.FrameColor := $FCAC65;
    ComboHook.FrameHighLite := $FFE9D6;

    ComboHook.SetComboParentObj(ComboBox1);
    ComboHook.Connect;

  end;

  ComboHook2 := HookedCombo_Create;
  if assigned(ComboHook2) then
  begin
    ComboHook2.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook2.FrameColor := $FCAC65;
    ComboHook2.FrameHighLite := $FFE9D6;

    ComboHook2.SetComboParentObj(ComboBox2);
    ComboHook2.Connect;
  end;

und an stelle dessen!

Delphi-Quellcode:

ComboHook := HookedCombo_Create;
  if assigned(ComboHook) then
  begin
    ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
    ComboHook.FrameColor := $FCAC65;
    ComboHook.FrameHighLite := $FFE9D6;

    ComboHook.SetComboParentObj(self);
    ComboHook.Connect;

  end;

verwenden um alle Comboboxen der Anwendung innerhalb der DLL zu enumerieren/verwalten..

[Medium]

Sekunde... Wessen self übergibst du, und warum ist das auf einmal ein Handle? :gruebel: Wenn du nicht gerade eine BPL (statt DLL) hast, und keinen Speicher rummappst, dann hast du in der DLL keinerlei Zugriff auf den Adressraum deiner Anwendung, und folglich auch keinen auf die Dinge, die die VCL so inne hat. Es mag sein, dass VB hier implizit mit COM Interfaces hantiert, so dass das alles rosig ausschaut, aber so ein Kissen hast du in Delphi nicht - zumindest nicht von Hause aus. Du könntest bestenfalls das (tatsächliche) Windows-Handle deines Formulares übergeben, und mittels FindWindowsEx() (also nackter WinAPI) die ChildControls durchgehen und an diesen, wiederum mit nackter WinAPI, Dinge tun. Aber die hübsche VCL Sicht wirst du so ohne Weiteres nicht in deine DLL geschoben bekommen.

Mir fehlt aber generell ein wenig "Vorarbeit" zu dem, was hier so insgesamt überhaupt alles passiert. DLL ist ja auch nicht immer gleich DLL. Hier scheint nen Hook zu sein, derer es auch wieder verschiedene Arten gibt. Was, wie, wer und vor allem gegen wen? :)

[EWeiss]

Also wenn ich hier ein Self übergebe

Delphi-Quellcode:

ComboHook.SetComboParentObj(self);

Ist es für mich ersichtlich das es sich nur um die MainForm handeln kann.
Da auf dieser die ganzen Komponenten aufgesetzt sind.

Delphi-Quellcode:

procedure THookedCombo.SetComboParentObj(Ctrl: TWinControl);
begin

  FParentObj := Ctrl;
end;

Das ParentHandle wäre also dann FParentObj.Handle

Mit diesem hole ich mir dann die Handles der auf self(MainForm) befindlichen Comboboxen über FindWindowExW
Aber wie gesagt es kommt nur die Hälfte von Self in der DLL an.
Das will irgendwie keiner so richtig verstehen was ich meine.

Zitat:

Aber die hübsche VCL Sicht wirst du so ohne Weiteres nicht in deine DLL geschoben bekommen.

Will ich auch nicht sondern nur das was in der Liste von Self steht :)
Du siehst aber das es geht ansonsten würdest du die Bitmaps nicht in den Comboboxen sehen können. (Ohne Hook)

gruss

[himitsu]

Dann nimm eben keine DLL, sondern eine BPL.
Schon hast du überall die gleiche RTTI, den gleichen Speichermanager und diesbezüglich keinerlei Probleme mehr.

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1110480)

Dann nimm eben keine DLL, sondern eine BPL.
Schon hast du überall die gleiche RTTI, den gleichen Speichermanager und diesbezüglich keinerlei Probleme mehr.

Die muss man aber Installieren oder?
Und habe auch keinerlei erfahrung damit.

gruss

[Medium]

Zitat:

Zitat von EWeiss (Beitrag 1110463)

Also wenn ich hier ein Self übergebe

Delphi-Quellcode:

ComboHook.SetComboParentObj(self);

Ist es für mich ersichtlich das es sich nur um die MainForm handeln kann.
Da auf dieser die ganzen Komponenten aufgesetzt sind.

Für mich nicht, weil aus dieser einen Zeile heraus nicht erkennbar ist, aus welchem Kontext heruas du diesen Aufruf machst, und grad self IST der Kontext ;). Wenn diese Zeile in einer Methode der MainForm steht, dann ja. Aber auch dann ist es eben nur ein Pointer, der im Adressraum der Anwendung Gültigkeit hat, nicht in der DLL. Wenn du zusätzlich noch das (tatsächliche) Handle in die DLL gibst, kannst du darüber natürlich via WinAPI Aufrufen arbeiten, weil DIE sind systemweit gültig.
Self ist kein Handle, sondern Idendisch mit z.B. dem, was ein TMyClass.Create() zurück liefert, und somit einfach eine Adresse auf den Heap, der wiederum im für nur deinen gerade aktiven Prozesses gemappten Speicher liegt, wo von aussen (ohne Tricks) keiner dran kommt. DLLs bekommen ihren eigenen Heap zugewiesen, und kommen an den der benutzenden Applikation nicht dran, ausser man kümmert sich von Hand darum, ooooder nutzt BPLs, wo sich ein von Delphi mit geliefertes "Framework" automatisch darum kümmert.
Ohne dies kennt die DLL die Struktur hinter dem gelieferten Pointer nicht (TForm ist eine Klasse der VCL, und all ihre Felder liegen ebenfalls im Adressraum der Anwendung), und selbst wenn man TForm der DLL bekannt machen würde und darauf casted, ist es noch immer ein ungültiger Pointer auf zufällige Daten im Adressraum der DLL.

Du musst zwischen Pointern und Handles unterschieden, ich glaube daher kommt deine Verwirrung. Das ist bei der VCL auch etwas gemischt, da hier Windows-Controls, die ein Systemhandle haben, mit VCL-eigenen Properties und Methoden gekapselt wird. Man kommt also via VCL Methoden (TForm.XXX()) ran, als auch über WinAPI Funktionen (SetWindowLong(MyForm.Handle, ...)). Erstere Möglichkeit fällt eben weg, wenn du den Adressraum deiner Anwendung verlässt.

[EWeiss]

Ich habe das jetzt verworfen und übergebe die Komponenten direkt.

Delphi-Quellcode:

  for IComb := 0 to Form1.ComponentCount - 1 do
  begin
    Ctrl := Form1.Components[IComb];
    sCtrl := Ctrl.ClassName;

    If (sCtrl = 'TComboBox')  or
       (sCtrl = 'TFilterComboBox') or
       (sCtrl = 'TDriveComboBox') then
    begin
      ComboHook := HookedCombo_Create;
      if assigned(ComboHook) then
      begin
        ComboHook.SetComboParentObj(TWinControl(Ctrl));
        ComboHook.ComboImg := ScrbMemoHook.CreateImageFromFile(FilePath + 'ScrollBarSkin\Combo.png');
        ComboHook.FrameColor := $FED3AC;
        ComboHook.FrameHighLite := $666666;
        ComboHook.FrameStyle := FrameFlat;
        ComboHook.Connect;
      end;
    end;
  end;

Die Funktion ist dadurch gegeben wenn auch nicht so elegant wie ich es ursprünglich implementieren wollte.

Danke für deine Erklärungen.

PS:

Zitat:

Erstere Möglichkeit fällt eben weg, wenn du den Adressraum deiner Anwendung verlässt.

Muss da nochmal Nachhaken.

Wenn es so ist wie du sagst.
Müßte die Übergabe so wie sie jetzt von statten geht das gleiche sein.
So.. Dann erkläre mir mal warum ich hier die richtigen Handles bekomme ?
Wenn dem nicht so wäre würden sich die Bitmaps ja auf Irreguläre Positionen setzen
und keinerlei Events der Button funktionieren.

Auch hier bin ich außerhalb des Adressraums meiner Anwendung;)

gruss

gruss

[himitsu]

Zitat:

Zitat von EWeiss (Beitrag 1110490)

Die muss man aber Installieren oder?
Und habe auch keinerlei erfahrung damit.

Die kann man auch wie eine normale DLL verwenden.

Wenn man sie statisch läd, dann braucht man nichtmal die Prozeduren/Funktionen exprotieren/importieren ... macht alles Delphi für einen.

Man indet nur über Uses die Units ein, welche man möchte und sobald die Anwendung mit Laufzeitpackages kompiliert wird und dieses Package mit angegeben wurde, dann werden die Units nicht mehr in die EXE eingebunden, sondern werden nur automatisch mit der BPL verlinkt.

[jaenicke]

Zitat:

Zitat von EWeiss (Beitrag 1110490)

Zitat:

Zitat von himitsu (Beitrag 1110480)

Dann nimm eben keine DLL, sondern eine BPL. [...]

Die muss man aber Installieren oder?

Nein, mit LoadPackage laden. ;-)
http://edn.embarcadero.com/article/27178

Was eine DLL angeht, so müsstest du als Parameter auch Interfaces, z.B. abgeleitet von IUnknown, übergeben können. Denn die werden via COM verwaltet. Also so ca., ungetestet:

Delphi-Quellcode:

library xyz;

uses
  MyInterface;

procedure DoIt(AObject: ITest); stdcall;
begin
  MessageBox(0, AObject.GetMsg, 'test', MB_ICONINFORMATION or MB_OK);
  AObject.ShowMsg('Hallo');
end;

exports
  DoIt;

Delphi-Quellcode:

unit MyInterface;

interface

type
  ITest = interface(IUnknown)
    procedure ShowMsg(Value: PWideChar); stdcall;
    function GetMsg: PWideChar; stdcall;
    procedure SetMsg(Value: PWideChar); stdcall;
  end;

Benutzung:

Delphi-Quellcode:

uses
  MyInterface;

type
  TTest = class(TInterfacedObject, ITest)
  private
    FTest: string;
  public
    procedure ShowMsg(Value: PWideChar); stdcall;
    function GetMsg: PWideChar; stdcall;
    procedure SetMsg(Value: PWideChar); stdcall;
  end;

procedure DoIt(AObject: ITest); stdcall; external 'xyz.dll';

implementation

function TTest.GetMsg: PWideChar;
begin
  Result := PWideChar(FTest);
end;

procedure TTest.SetMsg(Value: PWideChar);
begin
  FTest := Value;
end;

procedure TTest.ShowMsg(Value: PWideChar);
begin
  ShowMessage(Value);
end;

Delphi-Quellcode:

var
  Test: ITest;
begin
  Test := TTest.Create;
  Test.SetMsg('Hallöchen');
  DoIt(Test);
  Test := nil; // explizite Freigabe, nur nötig, wenn sonst der Scope zu groß wäre

Vielleicht hilft dir das ja dabei das so zu kapseln oder so. ;-)

// EDIT:
Also ich denke da an so etwas wie ein Interface, das du der DLL übergibst und das in der Anwendung die Daten abruft und in Interface-Objekten der DLL liefert ;-)

[EWeiss]

Danke für eure Infos werde es mir mal anschauen.

gruss

[himitsu]

Statt dem PWideChar kann man im Interface auch WideString nehmen, denn dieses wird auch über das COM-Zeugs verwaltet.