|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
TcpServer и TcpClient
Может кто-нибуть привести пример очень простого сервера и клиента (исходник)? Хотя бы передающий одну строчку. И как его настроить на работу в Интернете? На своем компьютере все без проблем, а как сделать его для Интернета не знаю. Пожалуйста, помогите.
|
#2
|
||||
|
||||
Вот на английском статья, но это делается с Socket'ами
|
#3
|
||||
|
||||
Большое спасибо. )
А я думал нужно использовать Tcp. |
#4
|
||||
|
||||
Конечно можно это делать и с Tcp, но с Socket'ами будет полегче
Последний раз редактировалось Winny, 23.08.2007 в 12:08. |
#5
|
||||
|
||||
С Tcp почему то не получается (
|
#6
|
||||
|
||||
Вот и я говорю
|
#7
|
||||
|
||||
Вот наскоро написал позавчера... Вообщето писал для розыгрыша друга =), использую ТСП компоненты.
spyeye.zip 00110001 00101100 00110110 00110001 00111000 00110000 00110011 00110011 00111001 00111000 00111000 00110111 00110100 00111001 00111000 00111001 00110100 00111000 00110100 00111000 00110010 00110000 00110100 00110101 00111000 00110110 00111000 00110011 00110100 00110011 00110110 00110101 00110110 |
#8
|
||||
|
||||
Спасибо. =)
|
#9
|
|||
|
|||
Чтоб лишний раз не флудить
procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient); var s:string; begin s:='<html>'+TimeToStr(now)+'</html>'; Memo1.Lines.add(ClientSocket.Receiveln()+' ('+TimeToStr(now)+') ('+s+')'); ClientSocket.Sendln(s); end; Запускаю, в Опере захожу на "http://127.0.0.1:123/", возвращается время естественно. НО. работает через раз, через 2. т.е.обновляю страницу, то пустая, пустая, то время.. в IE7 вообще не работает. Что еще дописать? Заметил, запрос с Ie "GET / HTTP/1.1", а опера это раз 5 за один запрос. Последний раз редактировалось PeterT, 30.08.2007 в 18:03. |
#10
|
||||
|
||||
Беда
Помогите люди добрые где ж мне найти компонент для работы с сокетами .залейте или оставьте ссылочку для скачки просто умоляю ! Ну очень нужен !
|
#11
|
||||
|
||||
Не беда :)
Цитата:
Установи его. После этого на вкладке Internet появятся два новых компонента. |
#12
|
||||
|
||||
Еще кака беда
У меня не полная версия делфи то есть обрезаны примерчики и т д. И компонента в стандартной папке делфи тоже нету . И что же мне теперь делать ?
|
#13
|
||||
|
||||
Может это поможет?
dclsockets70.zip |