Kleines Variablen Prob.

reflexor

Mitglied
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:
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:
String Ping = "/c ping "+Edit1->Text+" > ping.txt";
ShellExecute(0, "open", "cmd.exe", Ping.c_str() ,"" , 0 );
Timer1->Enabled = true;

MFG ASD20054
 
Zurück