Forum: Object-Pascal / Delphi-Language
by Luckie,
17. Feb 2006
Du bist klasse. Besten, besten herzlichen Dank. :P
Forum: Object-Pascal / Delphi-Language
by Luckie,
17. Feb 2006
JA! :bouncing4: :firejump: :bounce1: :bounce2: :dancer2: :witch: :hello: :roteyes: Es geht.
Mit welcher Delphi Version hast du die Typbibliothek erzeugt? Meine wurde mit Delphi 6 Professional erzeugt. :roll:
Forum: Object-Pascal / Delphi-Language
by Luckie,
17. Feb 2006
Aha. Jetzt stimmen die parmeter von den Ereignissen nicht mehr:
procedure OnJabberConnect(Sender: TObject);
procedure OnJabberCommError(Sender: TObject; var ErrorText: OleVariant);
procedure OnJabberAuthError(Sender: Tobject; var ErrorText: OleVariant);
procedure OnJabberDisConnect(Sender: TObject);
procedure OnJabberRosterItem(Sender: TObject; var Item: OleVariant);
...
Forum: Object-Pascal / Delphi-Language
by Luckie,
17. Feb 2006
So, ich habe das ganze jezuz ohne Klasse gemacht und ich habe immer noch den selben Fehler, dabei sollte mein Code jetzt identisch mit dem von WinJab sein. Sie dazu Jabber1.pas aus dem Anhang Zeile 2881.
Ich verstehe es einfach nicht. :wall:
Forum: Object-Pascal / Delphi-Language
by Luckie,
17. Feb 2006
So, da sind wir wieder.
Die gute Nachricht: Es läßt sich kompilieren und es kommt kein Fehler beim Ausführen. Die schlechte: myMsg ist immer nil. :(
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Das habe ich schon probiert, wenn ich mich nicht täusche (Ich habe chon so viel probiert... ;) ). Wie würde denn das it dem Komponentenwrapper aussehen? Wäre schön, wenn ich morgen im Laufe des tages dem Chef einen funktionierenden Client präsentieren könnte. :?
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Ich habe das in einer Klasse. In der wird der Event ausgelöst und dann wird der Event nach draußen weitergereicht, damit man drauf reagieren kann, wenn man die Klasse benutzt. Hat bisher sehr gut Funktioniert.
Beispiel:
Konstruktor:
TOnAuthError = procedure(Sender: TObject; var ErrorText: OleVariant) of object;
TOnRosterItem = procedure(Sender: TObject; var Item: OleVariant) of...
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Ich kann die Typbibliothek mal anhängen, weil ich nicht weiß, was du brauchst.
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Leider kommt da: "Ungültige Typumwandlung". :(
Forum: Object-Pascal / Delphi-Language
by Luckie,
16. Feb 2006
Ich reagiere auf folgende Nachricht:
OnMessage(Msg: IJabberMsg; Tag: IXMLTag)
Das sieht bei mir so aus:
procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
ShowMessage(Msg.FromJID);