IStrings richtig verarbeiten(OLE/COM Server)

[TTF]

@mkinzler: Ehrlich gesagt weiss ich es nicht da ja beide Anwendungen gleichzeitig laufen.

@Sir Rufo: Hmm ich denke auch, dass der Fehler in diesen beiden Zeilen liegt, aber ich habe keine Ahnung wie ich es besser machen könnte. Deshalb frag ich ja...

[Sir Rufo]

Zitat von TTF:

@mkinzler: Ehrlich gesagt weiss ich es nicht da ja beide Anwendungen gleichzeitig laufen.

@Sir Rufo: Hmm ich denke auch, dass der Fehler in diesen beiden Zeilen liegt, aber ich habe keine Ahnung wie ich es besser machen könnte. Deshalb frag ich ja...

Wie ist denn das Server.Get_Text definiert?
(Sitze am Tablet und möchte jetzt nicht erst den Rechner starten, ist eh schon warm genug)

So?
function Get_Text : IStrings; .

Ok, habe es gerade gesehen - Lösung siehe mein vorheriger Beitrag

[TTF]

@Sir Rufo: Genau das habe ich als Erstes gemacht. Aber Delphi erkennt Get_Text nicht als IString sondern als OleVariant, also hab ich versucht das irgendwie umzumappen..

@Sir Rufo 2.: Ich bin am Smartphone(Hab den Code nicht vor mir)...nachher start ich dann den Rechner

[TTF]

nichts(Versehen)

[himitsu]

Ein OleObject ist wie ein aufgemotzter Variant und du kannst direkt auf Methoden und Property des enthaltenen Interfaces zugreifen.
(nur die Codevervollständigung weiß natürlich noch nicht, was da später mal drin sein wird)


Wenn das IStrings.Add dieses Interface als Parameter versteht, dann darfst du das gerne "ummappen",
aber in das aStrings solltest du vorher auch eine Instanz rein tun, von welcher du diese Methode dann aufrufen kannst.

Oder du weist einfach dieses Result (OleVariant) der Interfacevariable zu, bzw. castest den OleVariant mit AS (wobei ich jetzt nicht genau weiß ob das wirklich geht).

[TTF]

Zitat von himitsu:

Wenn das IStrings.Add dieses Interface als Parameter versteht, dann darfst du das gerne "ummappen",
aber in das aStrings solltest du vorher auch eine Instanz rein tun, von welcher du diese Methode dann aufrufen kannst.

Den zweiten Teil(Instanz reintun?) verstehe ich nicht ganz. Kannst du mir bitte ein Codeschnipsel posten? Vielleicht versteh ich dann besser was du meinst

[TTF]

Ich hab das Ganze jetzt als BStr also WideString versucht. Das Resultat ist das gleiche, nur eine andere Fehlermeldung und etwas weniger Code

Fehlermeldung:

Unzulässige Parameteranzahl

Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Add(Server.Get_Text());
end;

Ich frage mich einfach.. Ich schaff es nicht eine einzige Zeile ohne Fehler zu schreiben
Wäre echt froh, wenn jemand mir dabei helfen könnte.