Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TServerSocket and TClientSocket

paradox01 © (2007-03-12 07:55:00)
Имеется программа сервер (TServerSocket), к нему через сокеты подключаются клиентские (TClientSocket) приложения. Клиенты при подключении отправляют «UserName». Вопрос: куда удобнее записывать данные о пользователях (Имя, IP адрес)? Чтобы потом отправить файл конкретному клиенту или всем клиентам сразу.

alexkdpu (2007-04-01 14:01:00) [1]
как законектится, передать запрос типа 'GET / HTTP1.1'и т.д. и полученый ответ сервера записать в переменную s с помощью компонента TClientSocket. Пример если можно, спс

alexkdpu (2007-04-01 13:58:00) [2]
как законектится, передать запрос типа 'GET / HTTP1.1'и т.д. и полученый ответ сервера записать в переменную s с помощью компонента TClientSocket. Пример если можно, спс

paradox01 (2007-03-14 08:19:00) [3]
Всем спасибо помогли!

SlymRO (2007-03-13 13:17:00) [4]
ServerType какой?
если stThreadBlocking то лучше чем
TSCThread=class(TServerClientThread) private //Хранить тут данные о пользователях protected procedure ClientExecute; override; end;
не придумали...
или непосредственно в переменных в теле ClientExecute;

Empleado (2007-03-13 11:05:00) [5]
>Сергей М. © (13.03.07 08:58) [10]
Не в твоем примере.

В [4] paradox01 (12.03.07 12:53) предложил избавляться от созданных данных таким образом:

> Здесь по конкретнее можно? Может так:
> Dispose(Socket.Data);

Это было к этому.

Всего доброго.

Сергей М. (2007-03-13 08:58:00) [6]

> Empleado © (12.03.07 17:43) [8]

Стоп.

> Если уж так как указано "> Dispose(Socket.Data)",

Где это указано ?

В приведенном мной коде такого нет ..

Сергей М. (2007-03-13 08:11:00) [7]

> Empleado © (12.03.07 17:43) [8]

Да, ты прав. Приведение типов я упустил.

Empleado (2007-03-12 17:43:00) [8]

> paradox01 (12.03.07 12:53) [4]
>
> Здесь по конкретнее можно? Может так:
> Dispose(Socket.Data);

>Сергей М. © (12.03.07 14:42) [7]
Чисто технический вопрос:

Если уж так как указано "> Dispose(Socket.Data)", то так будет правильнее - Dispose(PClientInfo(Socket.Data)), чем просто Dispose(Socket.Data)?
Или однофигственно?...

Ведь должен же Dispose знать ЧТО он освобождает и что там находится (long strings, arrays, s.o.), чтобы их финализировать.

Сергей М. (2007-03-12 14:42:00) [9]

> я не уверен, освободился ли на самом деле память

Почему ?

paradox01 (2007-03-12 13:56:00) [10]
Я уже попробовал ошибку не выдает, но я не уверен, освободился ли на самом деле память выделенный New(ClientInfo).

Как освободить выделенную память?

Сергей М. (2007-03-12 13:06:00) [11]

> paradox01 (12.03.07 12:53) [4]
>
>

А ты попробуй)

paradox01 (2007-03-12 12:53:00) [12]

> В обработчике OnClientDisconnect:
> var ClientInfo: PClientInfo;
> ..
> Dispose(ClientInfo);

Здесь по конкретнее можно? Может так:
Dispose(Socket.Data);

Сергей М. (2007-03-12 09:53:00) [13]
type TClientInfo = ^TClientInfo; TClientInfo = packed record UserName: String; ... end; В обработчике OnClientConnect: var ClientInfo: PClientInfo; .. New(ClientInfo); Socket.Data := ClientInfo;

В обработчике OnClientDisconnect:

var ClientInfo: PClientInfo; .. Dispose(ClientInfo);

В событии OnClientRead:

PClientInfo(Socket.Data).UserName := переданная клиентом строка, содержащая имя пользователя;

IP-адрес активного клиента хранить не нужно - его адрес всегда (в любом из событий OnClientConnect/Read/Write/Disconnect/Error) доступен в св-ве Socket.RemoteAddress

paradox01 (2007-03-12 09:31:00) [14]
Если я не ошибаюсь данные о клиентах можно хранить в массивах с привязкой к handle сокета или использовать свойство - Data. Меня интересует, как это эффективнее реализовать? Если можно в примерах покажите.

Сергей М. (2007-03-12 08:46:00) [15]

> куда удобнее

Что значит "удобнее" ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »