und zwar bin ich auf die neuen indy komps um gestiegen
jetzt funzt mein irc wetter bot nicht mehr
das ist mein bis jetzt über arbeiteter code (funkt aber bis jetzt nicht)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
AHost, ANicknameTo, AMessage: string);
var
sData,results,version,status : String; wetter , wetter2 , info , plz : string;
p: integer;
begin
version := '!ver'; status := '!status';
result := '!wetter';
wetter := '4Das wetter für die plz:'+ plz;
wetter2 := '9'+ info;
sData := AMessage;
memo1.Lines.add(sData);
sData := LowerCase(sData);
if AnsiPos(LowerCase(result),LowerCase(sData)) > 0 then begin
IdIRC1.Say('#test' , wetter);
IdIRC1.Say('#test' , wetter2);
end; |
wen ich das ganze in
Delphi-Quelltext
1:
| procedure TForm1.IdIRC1Raw(ASender: TIdContext; AIn: Boolean; AMessage: string); |
poste geht es zwar aber der füllt die memo komp. nicht so flüssig wie bei PrivateMessage
hoffe ihr könnt mir helfen
thx
