Есть клиент на делфи и сервер на С. Сервер принимает строку так:

Код

char *buff; buff = new char[255]; recv(client, &buff[0], sizeof(buff), 0);

Клиент посылает строку:

Код

var DataToSend:string;       asd:pchar; //**** asd:=pchar(DataToSend); a:=Send(sock, asd, strlen(asd), 0);

В итоге на сервер приходит какая-то чушь. Как нужно послать строку, чтобы её можно было получить на сервере, вызвав один раз функцию recv?

Это сообщение отредактировал(а) a.S.d - 29.6.2005, 22:30

А ты уверен в корректности работы процедуры

Цитата

asd:=pchar(DataToSend);

? Или попробуй принять это Дельфийским сервером. Если чушь- то ошибка в коде, если нет, то во взаимодействии программ.

С дельфийским сервером то же самое.

Код

procedure TForm1.Button1Click(Sender: TObject); var      buf:array[0..65535]of char;      j,i:integer; begin      j:=0;      Buf[0]:='T';      Buf[1]:='E';      Buf[2]:='S';      Buf[3]:='T';           for i:=0 to sizeof(buf) do if buf[i]=#0 then           begin buf[i]:=#13;           j:=i+1;           break;           end;      send(sock,buf,j,0); end;

Переделал функцию отправки:

Код

procedure SendData(Data:string); var asd:array [1..65535] of char; i: integer; begin      for i := 1 to length(Data) do      asd[i]:=data[i];      a:=Send(sock, asd, length(Data), 0); end;

Вроде отправляет нормально, но теперь проблема с сервером. Нормально он принимает за один вызов recv только строку из 3-х символов. Например если послать 'asd' то сервер после вызова recv вернёт в буфер 'asd', если например послать 'test', то на сервере будет 'test@:', если посылать более длинные строки, то сервер принимает их уже несколькими вызовами recv.
И вообще какое максимальное количество байт может принять сервер вызовом recv?
Добавлено @ 11:15
Кстати на сервер приходит то же самое если писать не на АПИ, а с использованием TClientSocket.

a.S.d Мне кажется проблема в сервере. Давай посмотрим его исходник.
Добавлено @ 10:44
Кстати:
procedure SendData(Data:string);
var asd:array [1..65535] of char;
i: integer;
begin
for i := 1 to length(Data) do
asd[i]:=data[i];
a:=Send(sock, asd, i, 0);
end;

RAdmin
Да, проблема была с сервером. Решил её так:

Код

char recvbuf[32] = ""; while((bytes_recv = recv(client,recvbuf,32,0))&&bytes_recv!=SOCKET_ERROR) {         //здесь обработка полученной информации     for(int i=0;i<32;i++) //затем обнуление принимающего буфера         recvbuf[i] = 0; }

Единственное, что мне тут не нравится, это что можно принять за один раз только 32 байта. Придётся принимать несколькими вызовами recv. Но как тут узнать, что передача строки закончена?

Добавлено @ 14:33

Цитата(RAdmin @ 1.7.2005, 10:42)

a:=Send(sock, asd, i, 0);

А что конкретно здесь тебе не нравится?

Максимальный размер пакета состовляет 65535 байт.

Цитата

А что конкретно здесь тебе не нравится?

Это я показал как лутше сделать

Цитата(a @ 1.7.2005, 14:28)

Но как тут узнать, что передача строки закончена?

Можно длбавлять в конец строки спец сигнатуру, тогда сервер приняв её поймёт что это конец.

А можно от клиента послать спец сообщение, что мол всё отправленно.