решаю такую задачку:
необходимо выдавать значения ping google.ru в браузер, со стандартной схемой TCP Server разобрался, сделал вывод данных в Memo,из него уже браузером смотрю , но заметил одно но:
стандартный пинг делает запрос к серверу 3 раза, если я открываю браузер и подключаюсь к своему TCP Server то вижу значения ping только первого запроса,
приходится нажимать F5 несколько раз в окне браузера чтобы полностью получить данные всех 3х запросов.
Помогите разобраться с 2мя вопросами:
1) как выдавать результат консольной программы напрямую в TCP Server без использования Мемо.
2) как сделать чтобы результат выводился без обновления страницы?
Посмотрите пожалуйста схему, поймете о чем я.
Make(delphi)ver(4.04 build 184)
Add(MainForm,2953706,56,105)
{
Height=237
link(onCreate,5232688:doOpen,[])
}
Add(TCP_Server,5232688,154,119)
{
Port=81
Point(doSendByIp)
link(onRead,13560533:doData,[])
}
Add(WinExec,1925637,273,28)
{
Param="google.ru"
FileName="C:\Windowssystem32\ping.exe"
Point(onConsoleResult)
Point(doConsoleExec)
MakeTrans(Param)
link(onConsoleResult,6833545:doAdd,[])
}
Add(LinkTip,2046136,70,70)
{
Link="http://localhost:81/"
Font=[MS Sans Serif,8,0,16711680,1]
}
Add(Memo,6833545,371,35)
{
Top=5
Width=380
Height=155
}
Add(Button,1111641,210,28)
{
Left=155
Top=165
link(onClick,1925637:doConsoleExec,[(258,34)(258,48)])
}
Add(DoData,13560533,210,119)
{
link(onEventData,7486227:doEvent1,[(254,125)(254,195)(23,195)(23,265)])
link(Data,6833545:Text,[(216,99)(377,99)])
}
Add(Hub,7486227,35,259)
{
InCount=2
link(onEvent1,5232688:doSend,[(140,265)(140,139)])
link(onEvent2,5232688:doSendByIp,[(101,272)(101,146)])
}
[/offtop]
Поиск
Друзья
Администрация