Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Telnet ausleihen ? (https://www.delphipraxis.net/25124-telnet-ausleihen.html)

Bit Juggler 1. Jul 2004 15:14


Telnet ausleihen ?
 
Hi,
hab mal wieder etwas Zeit zum Programmieren :)
Ich schreibe an einem Programm in dem ich ein oder zwei Befehle per Telnet ausführen muss.
Ist es möglich mir das Telnet von Windows sozusagen "auszuleihen" ?
Also Telnet starten -> meinen Befehl an das Telnet Fenster übergeben(aus meinem Programm heraus) -> Befehl ausführen -> Telnet beenden...

Wäre super wenn mir hier jemand weiterhelfen könnte!

Gruß Bit

Tubos 1. Jul 2004 15:22

Re: Telnet ausleihen ?
 
Warum verwendest du nicht die Indys?

Bit Juggler 1. Jul 2004 16:11

Re: Telnet ausleihen ?
 
Hi,
also soweit ich das aus den Demos in meiner Delphi Version sehen kann muss man sich da schon erst einmal einarbeiten.
Soll heißen der Aufwand lonht sich für mich ja garnicht.
Wenn ich es richtig in erinnerung hatte solte der Aufruf von Telnet ziemlich simpel sein, nur leider weiss ich nicht mehr genau wie es geht... ja ja, mehr Zeit müsste man haben :(

Bit Juggler 1. Jul 2004 21:42

Re: Telnet ausleihen ?
 
Hi,
hab mir nun -mir lieb ja nichts anderes übrig *g* - die Zeit genommen und hab mich mal in die Telnet Kompo von Indy eingelesen -> ist Tatsächlich nicht besonderst schwer!
Eine Frage bleibt für mich noch offen:
Gibt es nicht eine Möglichkeit Befehle in einem Rutsch zu senden anstatt immer mit einer Schleife zu arbeiten ?
Ich habe das jetzt so gelößt:

Delphi-Quellcode:

procedure Form1.TestClick(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  s := 'cd /tmp';
  for a := 1 to length(s) do
  begin
    idTelnet1.SendCh(s[a]);
  end;
  idTelnet1.SendCh(#13);
end;
Ich hab schon versucht mit .Write einen ganzen String zu senden das schlug aber alles fehl...

Tubos 1. Jul 2004 21:48

Re: Telnet ausleihen ?
 
Zitat:

Ich hab schon versucht mit .Write einen ganzen String zu senden das schlug aber alles fehl...
was genau war denn das problem?

Bit Juggler 1. Jul 2004 21:54

Re: Telnet ausleihen ?
 
Hi Tubos,
danke für den Antrieb, schon zum zweiten mal heute ;)
Hab es jetzt hinbekommen!
Das Problem war das ich einfach vergessen hab mit #13 abzuschließen :(
Nun geht auch der .Write Befehl ;)
Super!

Gruß Bit

Tubos 1. Jul 2004 21:55

Re: Telnet ausleihen ?
 
Zitat:

danke für den Antrieb
wieso, ich hab doch nur gefragt wo das problem war *g*

Bit Juggler 1. Jul 2004 21:57

Re: Telnet ausleihen ?
 
Ja, aber das ich dir Detailiert antworten konnte hab ich das ganze nochmal konzentriert durchgelesen und da war es mir halt aufgefllen ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz