Ответ от сервера

[ursa1992]

Уважаемые начну с того что я в программировании новичок,
как мне реализовать ответ от сервера если ответ есть то программа недолжна нечего делать но если ответа нету она должна выполнять какието действия

[Aliens_wolfs]

Воспользуйся поисковиком на этом форуме, здесь много обсуждений на эту тему

[ursa1992]

не чего схожево неувидел=\

[Aliens_wolfs]

В начале изучи контролы работающие с сетью, затем реализуй свой клиент и сервер, почитай форумы связанные с компонентами Indy или TClientSoket, TServerSoket либо поищи в интернете исходники, поизучай их пойми принцип их работы тогда нужная мысль о реализации своей програмки сама придет. Если есть набросок твоего кода то покажи здесь, а дальше люди помогут.

[ursa1992]

к сожалению кода у меня нету=\

[veniside]

сервер-то хоть какой? фтп? хттп? самописный?
ответ — это что? успешное соединение? любые данные от сервера? правильный ответ на котрольный вопрос клиента?

[ursa1992]

это игравой сервер call of duty 4
ответ - что он активин

[kjb777]

Кинь на форму Timer1, Edit1 и Label1.

uses Winsock;

{-----------------------возвращает IP по адресу сервера------------------------------}
function GetIP(Host : String) : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := 'Не найден!';
ZeroMemory(@Buffer, SizeOf(Buffer));
StrpCopy(Buffer, Host);
phe :=GetHostByName(buffer);
if phe = nil then begin
WSACleanup;
Exit;
end;
try
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
finally
WSACleanup;
end;
end;

{---------------------Контроль сервера--------------------------------}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=GetIP(Edit1.Text);
if Label1.Caption='Не найден!' then
begin
//выполнение твоей программы
end;
end;

Исходник-IP.rar
Это программка контролирует присутствие сервера в сети.
Я нашёл сервер только этот www.callofduty.com и где искать, что он активен? Он, что выдаёт какое-то сообщение?

[ursa1992]

вот скрин сервера http://s42.radikal.ru/i097/1112/4d/a26bffc714d1.jpg
как оправить команду я знаю но как получить ответ от сервера что команда прошла
вот код:

 
FormHandle, EditHandle: HWND;
 begin
 FormHandle := FindWindow(nil, 'CoD4 Console');
 EditHandle := FindWindowEx(FormHandle,0,'Edit', nil);
SendMessage(EditHandle, WM_SETTEXT, 0, LParam(PChar('123')));
SendMessage(EditHandle, wm_char, ord(#13), 0);
end;

[kjb777]

Сообщение от ursa1992

вот скрин сервера http://s42.radikal.ru/i097/1112/4d/a26bffc714d1.jpg
как оправить команду я знаю но как получить ответ от сервера что команда прошла

Опять ничего я не понял! Если команда прошла --- как ты это на этом скрине видишь?