send række telnet kommandoer

var
sl : TStringlist;
  i: integer;
begin
sl := TStringlist.Create;
sl.LoadFromFile('D:\telnetcommands.txt');
  for i:=0 to sl.Count-1  do
  // nu har du en liste af tekst i (sl[i])
  send_kommando_til_telnet_server.(sl[i]);


end;

Stoney

Hehe, det var den lette del af det jeg ville, måske udtrykte jeg ikke klart, at det ønskes at delphi logger ind på telnet serveren i baggrunden og sender kommandoerne..

Drop en idtelnet fra Indy Client fanebladet.

procedure TForm1.Button1Click(Sender: TObject);
var
sl : TStringlist;
  i: integer;
begin
IDTelnet1.Host := '127.0.0.1';
  IDTelnet1.port := 23;
  IdTelnet1.Connect;
  if IdTelnet1.Connected then
  begin
  sl := TStringlist.Create;
sl.LoadFromFile('D:\telnetcommands.txt');
  for i:=0 to sl.Count-1  do


  IdTelnet1.WriteLn(sl[i]);
  end;
  idtelnet1.Disconnect;

end;

Stoney

hvor findes indy client fanebladet?

jeg har fundet det ol... tak

Hvilken version af Delphi bruger du ?

Hvis du ikke har Indy fanebladet kan du downloade dem her:

http://www.nevrona.com/Indy/Download.html

Stoney