IRC-Bot als Anfänger?

[ford42]

Heißt das, dass ich auf dem Proxy-Server was einrichten muss?

[hhcm]

Nein,

du musst den IRC Client mit einem IOHandler verbinden (TIdIOHandlerStack) und diesen wiederum mit der Proxy Komponente.

[KodeZwerg]

Ja darauf wollte ich hinaus und Daniels Beitrag zum lesen der Manuals unterstützen.

[ford42]

Hmh, wenn ichs richtig verstanden habe muss ich einfach

Delphi-Quellcode:

IdIRC1.IOHandler := IdIOHandlerStack1;

machen. Stimmt das?

Wenn ja, dann meckert er wegen dem SSL rum (Fehler 502 Proxy Error)

Aber ich habe den Port 80 auch in meinem ff konfiguriert

[ford42]

Oder ist es, weil der Proxy SSL verlangt, dieses jedoch bei meinem Programm (noch) nicht eingerichtet ist?

[ford42]

hmh, ich bin nun daheim ohne Proxy.

Da kommt zwar keine Fehlermeldung, allerdings gehts trotzdem nicht.

Also wenn ich mit meinem normalen User den botty anschreiben möchte kommt da, dass der User nicht existiert und in dem Channel ist auch niemand außer ich selber...

Delphi-Quellcode:

unit UnitIRCBot;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdCmdTCPClient, IdIRC, IdContext, Vcl.StdCtrls,
  IdCustomTransparentProxy, IdConnectThroughHttpProxy, IdIOHandler,
  IdIOHandlerSocket, IdIOHandlerStack;

type
  TForm1 = class(TForm)
    IdIRC1: TIdIRC;
    Bt_Connect: TButton;
    Bt_JoinChannel: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Bt_Send: TButton;
    IdConnectThroughHttpProxy1: TIdConnectThroughHttpProxy;
    IdIOHandlerStack1: TIdIOHandlerStack;
    procedure FormCreate(Sender: TObject);
    procedure Bt_ConnectClick(Sender: TObject);
    procedure Bt_JoinChannelClick(Sender: TObject);
    procedure Bt_SendClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IdIRC1PrivateMessage(ASender: TIdContext; const ANickname, AHost,
      ATarget, AMessage: string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Bt_ConnectClick(Sender: TObject);
begin
  try //versuche
    IdIRC1.Connect(); //zu verbinden
  except //wenn Fehler
    on E: Exception do
      showMessage('Fehler: ' + E.Message); //Meldung zeigen
  end;
end;

procedure TForm1.Bt_JoinChannelClick(Sender: TObject);
begin
    try //versuche
    IdIRC1.Join('#botty-channel');
  except //wenn Fehler
    on E: Exception do
      showMessage('Fehler: ' + E.Message); //Meldung zeigen
  end;
end;

procedure TForm1.Bt_SendClick(Sender: TObject);
begin
  IdIRC1.Say('#botty-channel',Edit1.Text); //Nachricht zum Channel schicken
  Memo1.Lines.Add(IdIRC1.Nickname+': '+Edit1.Text); //Zum Memo hinzufügen, denn durch eigene Nachrichten wird das OnMessage-Ereignis nicht ausgelöst
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IdIRC1.Disconnect();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //IdConnectThroughHttpProxy1.Enabled := True;
  //IdConnectThroughHttpProxy1.Host := 'Hongkong';
  //IdConnectThroughHttpProxy1.Port := 80;

  //IdIRC1.IOHandler := IdIOHandlerStack1;

  IdIRC1.Nickname:='botty'; // Legt den Nick fest

  IdIRC1.Host:='chat.freenode.net'; // Gibt den Server an

  IdIRC1.Port:=6667; //Irc Port

end;

procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANickname,
  AHost, ATarget, AMessage: string);
begin
  Memo1.lines.add(ANickname+': '+AMessage);
end;

end.

[hhcm]

Hallo,

wenn ich idIrc.Realname und idIrc.Username angebe funktioniert´s hier.

[ford42]

Danke, muss ich mal daheim probieren. Hier gehts ja wegen dem Proxy noch nicht...

Was ist denn der Unterschied zwischen Username und Nickname??

EDIT: Habe die Verbindung gerade über mein Smartphone laufen lassen und da gehts nun auch...

Aber wäre natürlich cool, wenn es auch über den Proxy gehen würde...

[hhcm]

Alles nur eine konfigurationssache.
Wenn der FF Server nicht für den Port 6667 eingerichtet ist kannst du einstellen was du möchtest.

[ford42]

Wenn ich nach ffserver suche kommt da, dass es ein Server für media und audio ist. Wofür benötige ich denn diesen für nen IRC-Client? Oo

Oder meinst du was anderes?

Mit firefox kome ich mit diesen Port ins Internet

EDIT: Du meinst den IRC-Port? Der funktioniert ja mitm Handy..
Dachte du meinst den Proxy-Port (80)