IRC Shellbot

[Julian W.]

Ok, das hat sich jetz erledigt. Hab mich erstmal an den pipes usw versucht. Klappt auch, aber leider wird nicht die gesamte cmd Ausgabe per IRC zurückgesendet.
Hier mal mein code, vielleicht wisst ihr ja woran das liegt:

Delphi-Quellcode:

procedure TForm1.FClbProc(Sender: TObject; const ABuffer: String; ABufSize: Cardinal);
var LNew: string;
    LPos: Integer;
begin
  LNew := copy(ABuffer, 1, ABufSize);
  LPos := pos(#$C, LNew);
  if (LPos > 0) then
  begin
    MemoOutput.Text := '';
    LNew := copy(LNew, LPos + 1, Length(LNew));
  end;
  MemoOutput.Text := MemoOutput.Text + LNew;
      
  IdIRC1.Say('#lalalalala',Lnew);
  
  PostMessage(MemoOutput.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;

Ich habe den Code weitgehend hieraus übernommen:
http://www.delphipraxis.net/internal...=598121#598121

Greetz Julian