Forum: Object-Pascal / Delphi-Language
by TKC,
17. Feb 2006
Kein Problem .. deine Sourcen haben mir schon sehr oft weitergeholfen :wink:
Forum: Object-Pascal / Delphi-Language
by TKC,
17. Feb 2006
gibts doch gar nicht ...
Habs mit D2006 gemacht .
Schön das ich dir helfen konnte .
Forum: Object-Pascal / Delphi-Language
by TKC,
17. Feb 2006
Irgendwie sieht meine TLB etwas anders aus als deine ... ich hänge sie mal an ..
kannste ja mal testweise austauschen.
Ist den Msg auch nil ???
Forum: Object-Pascal / Delphi-Language
by TKC,
17. Feb 2006
Ich habe ja echt keinen Bock das ganze nachzucoden ... somit ist meine Hilfe leider stark eingeschränkt..
teste doch mal ob das hier funktioniert.
procedure TForm1.JabberSession1Message(ASender: TObject; const Msg: IJabberMsg; const Tag: IXMLTag);
var
myMsg : TJabberMsg;
begin
Forum: Object-Pascal / Delphi-Language
by TKC,
16. Feb 2006
Was muss ich denn installieren um das interface selbst zu testen ?
Forum: Object-Pascal / Delphi-Language
by TKC,
16. Feb 2006
Warum nutzt du denn nicht den Componentenwrapper den dir Delphi erzeugt hat .. ist in der TLB Datei die du gepostet hast ?
Forum: Object-Pascal / Delphi-Language
by TKC,
16. Feb 2006
also
OnMessage(Msg: IJabberMsg; Tag: IXMLTag)
ist was ganz anderes als
TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
...auf was reagierst du denn nun ?
Forum: Object-Pascal / Delphi-Language
by TKC,
16. Feb 2006
hmm evtl reicht ja folgendes ...
procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
ShowMessage(Msg);
if Assigned(OnDWMessage) then
begin
FOnMessage(self, Msg, Tag);
end;
Forum: Object-Pascal / Delphi-Language
by TKC,
16. Feb 2006
hi, versuchs mal so ...
procedure TDWJabberMsg.FOnMessageEvent(Sender: TObject; var Msg: OleVariant; var Tag: OleVariant);
begin
ShowMessage(TDWJabberMsg(Msg).FromJID);
if Assigned(OnDWMessage) then
begin
FOnMessage(self, Msg, Tag);
end;