[JackRu]

Доброе время суток. Я поставил перед собой задачу - необходимо принять 9 байт с сервера ... ) Попробую получить через recv();, при сборке начинает ругаться на сам recv() - видимо не правильно его использую ...
В чём может быть проблема ?

Код:

pack_coding : array[0..6] of char;
...
GetBytes: Integer;
...
GetBytes := recv(TcpClient2, pack_coding, 9, 0);

[lmikle]

И чей метод этот recv???

[JackRu]

В том то и дело, что не знаю, что это за метод ...
Если есть другие идеи, как принять 9 байт, буду очень благодарен ...

[AleD]

Сообщение от JackRu

В том то и дело, что не знаю, что это за метод ...
Если есть другие идеи, как принять 9 байт, буду очень благодарен ...

Всмысле "не знаю"? Я такой метод видел только в WinSock, только перед самими приёмом этих 9 байт нужно инициализировать сокеты, открыть порт и обрабатывать пакеты

[JackRu]

через WinSock говоришь ... А возможно через TcpClient байты принять ?

[Bars1992]

Юзай idTCPClient Там данные можно принемать в виде строки. Строка состоит из символов. Чтоб узнать код символа есть функция ord(); принял 9 символов, розшифровал и радуешся

[AleD]

Сообщение от JackRu

через WinSock говоришь ... А возможно через TcpClient байты принять ?

Можно и через него, но я с ним не работал, больше предпочитаю TClientSocket TServerSocket, проблема для новичка может составить фрагментация пакетов, но думаю 9 байт то в 1 пакет уместятся, так что почитай статьи по одному из этих компонентов и юзай

[JackRu]

Сообщение от AleD

Можно и через него, но я с ним не работал, больше предпочитаю TClientSocket TServerSocket, проблема для новичка может составить фрагментация пакетов, но думаю 9 байт то в 1 пакет уместятся, так что почитай статьи по одному из этих компонентов и юзай

Решил всё таки перебрать программу через TClientSocket TServerSocket ...
Но вот наткнулся на проблему

Код:

If ComboBox2.ItemIndex = 6 then
  begin
  showmessage('Выбран элемент 7');
  ClientSocket1.Host:=114.101.125.36;
  ClientSocket1.Port := 16781;
  ClientSocket1.Open;
ляляля ...

При сборке выдаёт
[Error] Unit2.pas(231): Record, object or class type required- выдаёт, ругаясь на IP

[AleD]

Сообщение от JackRu

Решил всё таки перебрать программу через TClientSocket TServerSocket ...
Но вот наткнулся на проблему

Код:

If ComboBox2.ItemIndex = 6 then
  begin
  showmessage('Выбран элемент 7');
  ClientSocket1.Host:=114.101.125.36;
  ClientSocket1.Port := 16781;
  ClientSocket1.Open;
ляляля ...

При сборке выдаёт
[Error] Unit2.pas(231): Record, object or class type required- выдаёт, ругаясь на IP

Правильно компилятор ругается, IP нужно указывать как строку, т.е.

Код:

ClientSocket1.Host:='114.101.125.36';

[JackRu]

Вернулся опять к тому, с чего начанал ...
как через TClientSocket принять 9 байт и записать их в массив ?

[NumLock]

PHP код:

uses ScktComp;

procedure TForm1.Button1Click(Sender: TObject);
var
  clientsocket: TClientSocket;
  now: Cardinal;
  //  наши 9 байт
  data: array [0..8] of Char;  //  или Byte
begin
  //  создаем клиента
  clientsocket:=TClientSocket.Create(Self);
  try
    //  имя сервера
    clientsocket.Host:='ya.ru';
    //  порт
    clientsocket.Port:=80;
    //  используем синхронный сокет
    clientsocket.ClientType:=ctBlocking;
    //  устанавливаем соединение
    clientsocket.Open;
    try
      //  отправим http запрос на сервер, чтобы он нам ответил что-нибудь
      //  из чего мы прочитаем только 9 байт
      clientsocket.Socket.SendText('GET / HTTP/1.0'#13#10);
      clientsocket.Socket.SendText(#13#10);
      //  запомним "время"
      now:=GetTickCount;
      //  ждем ответа максимум 5 сек
      while GetTickCount-now<5000 do
      begin
        //  если готовы 9 байт
        if clientsocket.Socket.ReceiveLength>9 then
        begin
          //  читаем их
          clientsocket.Socket.ReceiveBuf(data[0], 9);
          //  остальное не нужно
          Break;
        end;
      end;
    finally
      //  закрываем соединение
      clientsocket.Close;
    end;
  finally
    clientsocket.Free;
  end;
  //  смотрим ответ
  Memo1.Lines.Add(data);
end; 


[terom]

сервер же сначала шапку (header'ы) отпраляет, если по http, потом #13#10#13#10 и потом только ответ от него

[NumLock]

Сообщение от terom

сервер же сначала шапку (header'ы) отпраляет, если по http, потом #13#10#13#10 и потом только ответ от него

в данном примере http запрос отправляется только для того, чтобы нам что-то ответили. и нам тут не важно где http заголовок, а где контент. главное прочитать первые 9 байт из сокет-соединения.