Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

ClientSocket: Open 2mal ausführen?

  Alt 11. Jan 2004, 12:32
hoi,

ich hab die clientsocket kompo jetzt schon des öfteren benutzt, bei diesem mal sieht mein code z.b so aus:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Clientsocket1.Open;
  with Clientsocket1.Socket do
  begin
    SendText('CVERS 11015 4610' + #13#10);
    SendText('PASS supersecret' + #13#10);
    SendText('NICK silentx' + #13#10);
    SendText('apgar WjHsUUs 0' + #13#10);
    SendText('SERIAL 0' + #13#10);
    SendText('USER UserName HostName irc.westwood.com :RealName' + #13#10);
    SendText('verchk 32514 720911' + #13#10);
  end;
end;

wenn ich nun Button1 drücke passiert garnix, beim 2mal gehts dann ganz normal, wenn ich zur designzeit active auf true stelle, dann funktioniert das ganze schon beim 1sten klick. Aber ich will sie ja erst active haben sobald ich den button drücke... also wieso muss ich da 2mal drücken?
das muss jeder der damit schonmal gearbeitet hat bemerkt haben, das is nämlich egal welcher server, das resultat is immer das gleiche, erst beim 2mal funzt es...
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat