[tavoc]

Hi,

ich habe auch mal probiert mit den Indys was zu basteln, meiner Erfahrung nach sind die 9er und 10 er IRC Komponenten fehlerhaft.

Ich habe deshalb selber etwas mit winsockets geschrieben, das ist einfacher und man lernt mehr,da man dort alles selber machen kann/muss.

[tavoc]

Wenn du es mit den Sockets machst geht das so:

  ClientSocket1.Host:=ServerIrc;
  ClientSocket1.Port:=PortIrc;
  ClientSocket1.Open;
  ClientSocket1.Socket.SendText('Pass '+PasswordIrc+#13#10);    
  ClientSocket1.Socket.SendText('User '+UserIrc+' HostName '+ServerIrc+' :RealName' + #13#10);
  ClientSocket1.Socket.SendText('Nick '+NickIrc+#13#10);
  ClientSocket1.Socket.SendText('Join '+ChannelIrc+#13#10);

die daten die ankommen siehst du so

procedure TMainForm.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var empfangen: string;
begin
  empfangen := ClientSocket1.Socket.ReceiveText;
....
end;

Natürlich musst du dir dann noch einen Parser bauen der die ganzen Befehle entgegennimmt sowie ein Fensterhandling.

Dieser Beitrag wurde von tavoc bearbeitet: 19. September 2005 - 18:09

[tavoc]

Ich empfange Nachrichten vom Server so.


procedure TMainForm.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var empfangen: string;
begin
TIrcForm(WindowIrc('Status'+ServerIrc, '', 'status')).REChannelIrc.Lines.Add(''); ->eigene funktion die das ganze Zeug ins Statusfenster schreibt
colorIrc(empfangen, TextColorIrc, TIrcForm(WindowIrc('Status'+ServerIrc, '', 'status')).REChannelIrc);
empfangen := ClientSocket1.Socket.ReceiveText; ->was ankommt wird der variable empfangen zugewiesen
while pos(#$D#$A, empfangen)>0 do
begin
receive(copy(empfangen,1,pos(#$D#$A, empfangen)));
delete(empfangen,1,pos(#$D#$A, empfangen));
end;
receive(empfangen); ->die strings in der VAR empfangen werden zeilenweise analysiert, das passiert in meiner receive funktion, dann wird dieser teil gelöscht und die nächste zeile kommt ran
end;


Ich hoffe das löst dein Problem.


Btw. wie kann ich per button [code] wieder reinmachen? Im [code] gehen dann auch keine Farben.

[tavoc]

Erstmal muss ich fragen welche Socketkomponente du in Delphi eigebunden hast.
Bei Delphi 2005 ist nämlich die dclsockets90.bpl nicht installiert, die musst du erst nachräglich hinzufügen.

Warum es bei dir nicht geht weiß ich grade nicht, ich schreibe einfach mal was ich habe.

function TMainForm.connect():boolean;
begin
  ClientSocket1.Host:=ServerIrc;
  ClientSocket1.Port:=PortIrc;
  ClientSocket1.Open;
end;


procedure TMainForm.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  TIrcForm(WindowIrc('Status'+ServerIrc, '', 'status')).Hide;
  ClientSocket1.Socket.SendText('Pass '+PasswordIrc+#13#10);   
  ClientSocket1.Socket.SendText('User '+UserIrc+' HostName '+ServerIrc+' :RealName' + #13#10);
  ClientSocket1.Socket.SendText('Nick '+NickIrc+#13#10);
  ClientSocket1.Socket.SendText('Join '+ChannelIrc+#13#10);
  WindowIrc(ChannelIrc, '', 'channel');
end;

Das ist das connecten zum Server, WindowIRC ruft ein weiteres Fenster auf->Channelfenster(eigene funktion).

Zuerst wird per button die funktion connect aufgerufen, damit entsteht die verbindung zum server, wenn die komponente mitbekommt das sie verbunden ist wird das ONconnect ereignis ausgelöst-> die prozedur, womit ich in einen channel komme.

procedure TMainForm.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var empfangen: string;
begin
  TIrcForm(WindowIrc('Status'+ServerIrc, '', 'status')).REChannelIrc.Lines.Add('');
  colorIrc(empfangen, TextColorIrc, TIrcForm(WindowIrc('Status'+ServerIrc, '', 'status')).REChannelIrc);
  empfangen := ClientSocket1.Socket.ReceiveText;
  while pos(#$D#$A, empfangen)>0 do
  begin
	receive(copy(empfangen,1,pos(#$D#$A, empfangen)));
	delete(empfangen,1,pos(#$D#$A, empfangen));
  end;
  receive(empfangen);
end;

Diese Prozedur ist das ONRead Ereignis,
und das ist das gesamte empfangen, mehr ereignisse frage ich nicht ab.


Evtl hast du eine andere socketkomponente wo das ganze anders funktioniert.

Dieser Beitrag wurde von tavoc bearbeitet: 22. September 2005 - 07:06

[tavoc]

Die dclsockets90.bpl befindet sich übrigens schon im Delphi ordner, bei "bin".

[tavoc]

Hm wenn du es so gemacht hast wie ich weiß ich nicht warum es nicht klappt, wenn du willst schick ihr dir mein source komplett und du kannst nachgucken was du halt brauchst, ist zwar nicht die endversion, aber das verbinden und senden geht dort, nur das fensterhandling darfst du dir nicht angucken, das ist leider müll .