also JOPL gebe ich auf...
ich wollte es also mit JabberCom versuchen, also habe ich unter Projekt->Typenbibleothek importieren... dann die JabberCom.dll hinzugefügt, und dann JabberCom Libary (Version 2.3) installiert. Dann hatte ich einige neue komponenten in dem
ActiveX tab.
z.b auch TJabberSession.
die habe ich dann auf das form gelegt, und erstmal folgendes gemacht:
Delphi-Quellcode:
pw:=JabberParamList.Values['Password'];
user:=JabberParamList.Values['UserName'];
server:=JabberParamList.Values['ServerName'];
port:=strToInt(JabberParamList.Values['ServerPort']);
stryykeUser:=JabberParamList.Values['StryykeUserName'];
showMessage(user+' '+pw);
JabberSession.Server:=server;
JabberSession.Username:=user;
JabberSession.Port:=port;
JabberSession.Password:=pw;
JabberSession.Connect;
die ganzen variablen (server, user port etc) sind auch alle richtig und ok
dann habe ich noch einige erreignisse geffült und einen Button Klick, der mir den status anzeigen sollte:
Delphi-Quellcode:
procedure TLoginForm.Button2Click(Sender: TObject);
begin
showMessage(jabberSession.Status); // IST LEIDER IMMER LEER
end;
procedure TLoginForm.JabberSessionConnect(Sender: TObject);
begin
showMessage('try connect'); // KOMMT NICHT
end;
procedure TLoginForm.JabberSessionException(Sender: TObject);
begin
showMessage('error'); // KOMMT AUCH NICHT
end;
procedure TLoginForm.JabberSessionXML(ASender: TObject; Direction: Integer;
const Text: WideString);
begin
showMessage(text);
end;
procedure TLoginForm.JabberSessionMessage(ASender: TObject;
const Msg: IJabberMsg; const Tag: IXMLTag);
begin
showMessage(Msg.Body); // KOMMT SCHONMAL GAR NICHT
end;
wie ihr an den kommentaren sehen könnt klappt es einfach nicht, und ich weiß nicht wieso... kann mir da jemand helfen? hat vielleicht schonmal jemand was mit JabberCom und delphi gemacht? denn das sample JabberCOM_MFC-1.0.zip ist leider C++ und ich habe hier nicht einmal das MS Visual Studio oder ähnliches um es mir anzusehen, und C++ kann ich auch nicht.