Hallo, ich habe eine Programm gebastelt womit man Server anpingen kann und das danach in einer MemoBox ausgegeben wird. Es funktioniert auch alles wunderbar, nur möchte ich nicht immer die gleiche ip nehmen die fest im code eingebaut ist sondern die ip die ich in einer EditBox eingebe, nur das nicht.

Ich poste einfach mal den Code wo das mit der Festen ip ist.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

void __fastcall TForm1::Button1Click(TObject *Sender) { ShellExecute(0, "open", "cmd.exe",              "/c ping 127.0.0.1 > ping.txt","" , 0 ); Timer1->Enabled = true; } //---------------------------------------------------------------------------   void __fastcall TForm1::Button2Click(TObject *Sender) { Memo1->Lines->Clear(); DeleteFile("ping.txt"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { if(FileExists("ping.txt")) Memo1->Lines->LoadFromFile("ping.txt"); Timer1->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { if (Save->Execute())     {     Memo1->Lines->SaveToFile (Save->FileName);     }         } //---------------------------------------------------------------------------   void __fastcall TForm1::FormCreate(TObject *Sender) {   Save->DefaultExt = '.txt';         } //---------------------------------------------------------------------------

Gruß,
Michael

Hi,

Code :

1 2 3

String Ping = "/c ping "+Edit1->Text+" > ping.txt"; ShellExecute(0, "open", "cmd.exe", Ping.c_str() ,"" , 0 ); Timer1->Enabled = true;

MFG ASD20054

Hey danke ASD20054,

hat super funktioniert.

Gruß,
Michael