Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ICQServer := 'login.icq.com';
ICQClient1.ICQPort := 5190;
ICQClient1.UIN:=deine 2 icq nummer;
ICQClient1.Password:='dein PW';
ICQClient1.Login;
ICQClient1.SendMessage(strtoint(icq nummer),der text);
ICQClient1.Disconnect;
end;
1. warum disconnectest du gleich wieder?
2. dir ist sicher bekannt, dass das einloggen eine weile dauert! d.h. du kannst nicht unmittelbar nach dem aufbauen der verbindung eine nachricht versenden, sondern musst warten, bis die verbindung steht!
das kannst du z.b. folgendermaßen lösen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.ICQServer := // einloggen
.....
ICQClient.Login
end;
procedure TForm1.ICQLogin(Sender: TObject); // wird ausgeführt, sobald eine fehlerfreie verbindung hergestellt werden konnte
begin
// event. zu versuchszwecken unkommentieren
// ShowMessage('Jetzt kanns losgehen, ICQ konnte eine Verbindung zum Server herstellen');
ICQClient1.SendMessage(123456,'test');
ICQClient1.Disconnect;
end;
(ungetestet)
mfg
stefan