PHP DM Gate v0.9 » Свой протокол <span class="vd">[D7, WinXP]</span>

umbra © (25.09.07 17:23) [20]

для упрощения подобных изобретений в инди 9 у
TIdTCPServer

есть коллекция
CommandHanlers

, а в инди 10 - отдельный компонент
TIdCmdTCPServer

.

<Цитата>
OrdJONY © (25.09.07 19:50) [21]

> одна тема логина на сервер чего стоит, если безопасную проверку
> пароля организовать, т.е не пересылать пароль в открытом
> виде.

Да не надо мне безопасная проверка пароля. Напишите простенький пример, как собрать такой пакет, а потом прочитать его. Пример относится только к пакету

<Цитата>
DVM © (25.09.07 21:39) [22]

> а потом прочитать его

Тебе через инди что ли? Ну вот совсем примитивно:

procedure TfrmMain.btnSendTCPCommandClick(Sender: TObject);
var
SendBuff: array[1..14] of byte;
RecvBuff: array[1..12] of byte;
res: string;
i: integer;
begin
IdTCPClient.Host := edtHost.Text;
IdTCPClient.Port := spnedtPort.Value;
try
IdTCPClient.Connect;
except
// ошибка
end;

SendBuff[1] := $6;
SendBuff[2] := $2;
SendBuff[3] := $0;
SendBuff[4] := $A;
SendBuff[5] := $0;
SendBuff[6] := $3;
SendBuff[7] := $1;
.....
.....
.....

if IdTCPClient.Connected then
begin
IdTCPClient.WriteBuffer(SendBuff, SizeOf(SendBuff), true);
IdTCPClient.ReadBuffer(RecvBuff, SizeOf(RecvBuff));
end;

IF IdTCPClient.Connected then IdTCPClient.Disconnect;
end;

<Цитата>
OrdJONY © (25.09.07 23:17) [23]

> SendBuff[1] := $6; SendBuff[2] := $2; SendBuff[3] :=
> $0; SendBuff[4] := $A; SendBuff[5] := $0; SendBuff[6]
> := $3; SendBuff[7] := $1;

а что это за значения??? Разъясните пожалуйста

<Цитата>
DVM © (25.09.07 23:19) [24]

> а что это за значения??? Разъясните пожалуйста

Это от балды взятые числа. Ты туда свои пиши.

<Цитата>
OrdJONY © (26.09.07 10:21) [25]

Спасибо вам за помощь DVM!!!

<Цитата>