Простое клиент-сервер приложение на TTcpServer/TTcpClient

← →
Soulface © (2006-11-05 01:35) [0]

Очень нужно простое клиент-сервер приложение на TTcpServer/TTcpClient.
Если где-то про это уже написано, большая просьба ткнуть меня туда носом, потому что я уже замучался искать.
Если почитать негде, не сочтите за труд, объясните неразумному, как написать приложения (клиент и сервер), которые, например, по нажатию кнопочки будут посылать друг другу переменную string типа.

Заранее спасибо.

← →
Ketmar © (2006-11-05 03:56) [1]

переменную переслать нельзя.

← →
Германн © (2006-11-05 04:05) [2]

> Soulface © (05.11.06 01:35)
>
> Очень нужно простое клиент-сервер приложение на TTcpServer/TTcpClient.
>
> Если где-то про это уже написано, большая просьба ткнуть
> меня туда носом, потому что я уже замучался искать.

Ну это не совсем "в точности" по сабжу, но всё-таки "первое приближение", имхо.
function SendTo: (var buf; bufsize: integer; ToAddr: TSockAddr; flags: integer = 0): integer; Description Use SendTo to send a single packet of information over the network. Note that information in the packet is not checked for length, completeness, and such, which occurs at a higher level.

← →
DVM © (2006-11-05 12:12) [3]

Если устроит пример от Инди то там такое есть. Indy9demos искать надо.

← →
Leonid Troyanovsky © (2006-11-05 12:21) [4]

> Soulface © (05.11.06 01:35)

> меня туда носом, потому что я уже замучался искать.

Ищи в %delphi%\demos - chat.dpr

--
Regards, LVT.

← →
Soulface © (2006-11-05 15:00) [5]

to Ketmar: спасибо за абсолютно точный и столь же бесполезный ответ. Вообще-то, этот форум вроде для чайников, и такой крутой мастер мог бы оказать снисхождение, поняв, что речь идёт, разумеется, не о передаче переменной, а о передаче её содержимого (в моём случае - текстовой информации).

to Германн: спасибо, но в хелп я тоже смотрел :) ещё бы кто-нибудь объяснил, что означают параметры этого метода... (особенно вторые два). А заодно уж и как работает метод TTcpServer.ReceiveFrom - он ведь должен работать в паре с TTcpClient.SendTo?

to DVM: c Indy связываться не хочется, так как возможности этого инструмента по-моему неадекватны потребностям моего проекта :)

to Leonid Troyanovsky: Тоже спасибо, но этот пример во-первых есть в Д5, а не Д7, во-вторых, он на TServerSocket/TClientSocket, которых в Д7 нет.

← →
Anatoly Podgoretsky © (2006-11-05 15:06) [6]

> Soulface (05.11.2006 15:00:05) [5]

> Вообще-то, этот форум вроде для чайников

А ты то тут причем, или думаешь, что тебе будут вылизывать?
И на слабо не надо брать, сейчас Ketmar придет и все тебе объяснит.

← →
Ketmar © (2006-11-05 15:41) [7]

>[6] Anatoly Podgoretsky(c) 5-Nov-2006, 15:06
>И на слабо не надо брать, сейчас Ketmar придет и все тебе
>объяснит.
сначала хотел, а потом лениво стало. %-)

← →
Anatoly Podgoretsky © (2006-11-05 15:47) [8]

> Ketmar (05.11.2006 15:41:07) [7]

А ты попробуй, хотя бы для потомков

← →
Ketmar © (2006-11-05 15:59) [9]

>[8] Anatoly Podgoretsky(c) 5-Nov-2006, 15:47
>А ты попробуй, хотя бы для потомков
да ну. я лучше код попишу. или рассказ. или так флудом займусь, без смысла. моск беречь надо, ресурс, чай, не казённый. %-)

← →
Anatoly Podgoretsky © (2006-11-05 16:07) [10]

> Ketmar (05.11.2006 15:59:09) [9]

Ресурс ограниченый

← →
Ketmar © (2006-11-05 16:09) [11]

>[10] Anatoly Podgoretsky(c) 5-Nov-2006, 16:07
>Ресурс ограниченый
так я к тому же.

> А ты то тут причем, или думаешь, что тебе будут вылизывать?
>
> И на слабо не надо брать, сейчас Ketmar придет и все тебе
> объяснит

Я всего лишь намекал на возможность сразу объяснить мне, чтобы отстал... Ну что делать, выразился один раз неточно...
Стал бы я вас всех отвлекать, если бы про то, что меня интересует было в книжке написано... Раз пришёл - значит надо, наверное?

> Soulface (05.11.2006 17:00:12) [12]

> сразу объяснить мне, чтобы отстал...

А отстанешь? :-
)

Отстану, конечно :)

> Soulface © (05.11.06 15:00) [5]

> которых в Д7 нет.

Component..Install Packages..Add bin\dclsockets70.bpl

--
Regards, LVT.

> Component..Install Packages..Add bin\dclsockets70.bpl

Спасибо... Вот, оказывается, как всё просто...

Простое клиент-сервер приложение на TTcpServer/TTcpClient Найти похожие ветки