Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2011, 23:34   #11
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

Гыыы... гении йопта.
Может на сайте расработчика поищите описание протокола? Там точно будет что-то что укажет на проверку соединения.
Человек_Борща вне форума Ответить с цитированием
Старый 27.12.2011, 07:23   #12
ursa1992
Пользователь
 
Регистрация: 25.12.2011
Сообщений: 16
По умолчанию

вот http://i062.radikal.ru/1112/19/f3bbeea8801a.jpg выделено красным
ursa1992 вне форума Ответить с цитированием
Старый 27.12.2011, 07:24   #13
ursa1992
Пользователь
 
Регистрация: 25.12.2011
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Гыыы... гении йопта.
Может на сайте расработчика поищите описание протокола? Там точно будет что-то что укажет на проверку соединения.
наврятли они выложат такие данные
ursa1992 вне форума Ответить с цитированием
Старый 27.12.2011, 19:58   #14
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
наврятли они выложат такие данные
берите сниффер и вперед.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 28.12.2011, 01:01   #15
kjb777
Пользователь
 
Регистрация: 02.09.2009
Сообщений: 12
По умолчанию

Попробуй загонять страницу в TStringList и затем искать строку с твоей командой СМD. Если номер позиции строки [i] не будет меняться, то цикл можно исключить. Как это будет работать на твоём сайте не знаю - пробовал на www.i.ua - работает. Кинь на форму Button1, Label1, Label2 и компонент IdHTTP1.


procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
i : Integer;
CMD: string;
begin
CMD:='Unknown command '+'"123"';
SL:= TStringList.Create;
try SL.Text:= IdHttp1.Get('http://www.callofduty.com/') except end;

for i := 0 to SL.Count-1 do if Pos(CMD,SL.Strings[i])>0 then

begin
Label1.Caption:=SL.Strings[i];
Label2.Caption:='Строка № '+ IntToStr(i);
//выполнение твоей программы
end;

end;

Исходник
Вложения
Тип файла: rar Поиск.rar (7.5 Кб, 10 просмотров)

Последний раз редактировалось kjb777; 28.12.2011 в 03:26.
kjb777 вне форума Ответить с цитированием
Старый 28.12.2011, 11:09   #16
ursa1992
Пользователь
 
Регистрация: 25.12.2011
Сообщений: 16
По умолчанию

kjb777
уважаемый но причём тут сайт?
ursa1992 вне форума Ответить с цитированием
Старый 28.12.2011, 20:17   #17
Slym
Участник клуба
 
Регистрация: 07.12.2011
Сообщений: 1,025
По умолчанию

похоже тут дело даже не в "сервере" и сокетах...
он окну мессагу сет_текст шлет и хочет с того окна гет_текст с ответом
Нужно винсайтом найти мемо отображения и геттекст вызвать
Не стесняемся, плюсуем!
Slym вне форума Ответить с цитированием
Старый 28.12.2011, 21:54   #18
kjb777
Пользователь
 
Регистрация: 02.09.2009
Сообщений: 12
По умолчанию

Уважаемый ursa1992 , ты окончательно меня запутал. Действительно - какое окно ты открываешь, я так понял, что это окно интернет-браузера, т.е. страничка грузится с сервера? На посланную тобой команду серверу-[123] , сервер высылает ответ на твою страничку браузера- [Unknown command "123" ]. И на твоей странице должно отобразиться это послание. И придёт оно только на твой IP-адресс. Если это не так - то тогда действительно запускай Sniffer и ройся в потоке информации и я полагаю, что искать надо будет опять-же сочетание - [Unknown command "123" ].
kjb777 вне форума Ответить с цитированием
Старый 29.12.2011, 08:56   #19
ursa1992
Пользователь
 
Регистрация: 25.12.2011
Сообщений: 16
По умолчанию

Slym
вот в точку!)
kjb777
какой сайт? это игравой сервер которому я шлю команду но не знаю как получить ответ от него...
http://i062.radikal.ru/1112/19/f3bbeea8801a.jpg - это факт не веб браузер

Последний раз редактировалось ursa1992; 29.12.2011 в 08:59.
ursa1992 вне форума Ответить с цитированием
Старый 29.12.2011, 16:40   #20
ursa1992
Пользователь
 
Регистрация: 25.12.2011
Сообщений: 16
По умолчанию

Цитата:
Сообщение от kjb777 Посмотреть сообщение
Опять ничего я не понял! Если команда прошла --- как ты это на этом скрине видишь?
ну там же красным выделено
ursa1992 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расшифровать ответ сервера Shouldercannon Общие вопросы Delphi 19 10.03.2011 09:33
поймать ответ от сервера miki131 Работа с сетью в Delphi 1 24.12.2009 20:24
Http ответ сервера lennon Свободное общение 4 03.08.2009 02:34
Ответ от сервера. mustang007 Работа с сетью в Delphi 3 23.05.2009 10:33
TClientSocket ответ от сервера JRcoker Работа с сетью в Delphi 10 02.10.2008 01:55