Recv и динамический массив

[pesi]

var
Buf: Array [0..9] Of Char;


Recv(wSocket, Buf, 10, 0);

var
Buf: Array Of Char;

SetLength(Buf, 10);
Recv(wSocket, Buf[0], 10, 0);

С статическим массивом все работает, а с динамическим нет.
Можно ли использовать динамический массив, если да то как?

[ZaRDaK]

Buf[0]

Указывайте весь массив, а не его 1 елемент.

[pesi]

Recv(wSocket, Buf, 10, 0);

если так, то просто уходит в аут

[Пепел Феникса]

pesi, в начальном коде все верно было, что в нем не так работает?
(у вас char=AnsiChar? если да то все верно, иначе не забываем умножать на размер единицы массива(да и вообще всегда стоит так делать))

Recv(wSocket,Buf[0],Length(Buf)*SizeOf(Buf[0]){или SizeOf(Char)},0);

[evg_m]

Recv(wSocket, @Buf[0], 10, 0);
для динамического массива попробуйте указть адрес первого елмента

[Пепел Феникса]

evg_m, помоему ж в Делфи var механизм применен?(да я думаю не компилилось бы тогда)

[evg_m]

из первого поста
для статического массива работает
Recv(wSocket, Buf, 10, 0); ..// указан адрес массива (указатель на первый элемент)

для динамического неработает
Recv(wSocket, Buf[0], 10, 0); ..// указано ЗНАЧЕНИЕ первого biff[0]

Recv(wSocket, Buf, 10, 0); ..// не работает к.к. адрес ССЫЛКИ на массив (но не массив)

просим проверить
Recv(wSocket, @Buf[0], 10, 0); ..// указан АДРЕС первого @ biff[0]

[Пепел Феникса]

если честно мне еще не понятно в каком смысле не работает...
не компилится или не получает данные%)

[pesi]

просим проверить
Recv(wSocket, @Buf[0], 10, 0); ..// указан АДРЕС первого @ biff[0]

Так вообще не компилится.

Пепел Феникса, данные получаю но там каша(что то повторяется по несколько раз, а чего то нет).

Код получает страницу яндекса, посмотрите пожалуйста

var
  wData: TWSAData;
  wSocket:TSocket;
  wAdrr: SockAddr_In;

  Request: String;
  Buffer: Array of Char;
  RecvCount: Integer;
  Otvet: String;
begin
  if WSAStartup(MAKEWORD(2, 0), wData) <> 0 then
    Raise Exception.Create('Ошибка инициализации');

  wSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if wSocket = INVALID_SOCKET then
    Raise Exception.Create('Невозможно создать сокет!');

  wAdrr.sin_addr.S_addr := inet_addr(PChar('87.250.251.3'));
  wAdrr.sin_family:= AF_INET;
  wAdrr.sin_port := htons(80);

  if Connect(wSocket, wAdrr, SizeOf(wAdrr)) = SOCKET_ERROR Then
  begin
    WSACleanup();
    Raise Exception.CreateFmt('Connection error %d', [WSAGetLastError]);
  end;

  Request:= 'GET / HTTP/1.0'#13#10
           +'Host: www.yandex.ru'#13#10
           +'Connection: close'#13#10
           +#13#10;

  if Send(wSocket, Request[1], Length(Request), 0) = SOCKET_ERROR then
  begin
    CloseSocket(wSocket);
    WSACleanup();
    Raise Exception.CreateFmt('Ошибка при отправке!'#13#10'Error code %d', [WSAGetLastError]);
  end;

  RecvCount:= 1;
  Otvet:= '';

  SetLength(Buffer, 10);

  while RecvCount >  0 do
  begin
    RecvCount := Recv(wSocket, Buffer[0], Length(Buffer)*SizeOf(Buffer[0]), 0);
    Otvet:= Otvet + String(Buffer);
    if RecvCount = -1 then
    begin
      CloseSocket(wSocket);
      WSACleanup();
      Memo1.Text:= Otvet;
      Raise Exception.CreateFmt('Ошибка при чтении ответа!'#13#10'Error code %d', [WSAGetLastError]);
    end;
  end;

  Memo1.Text:= Otvet;
  CloseSocket(wSocket);
  WSACleanup;
end;

[Пепел Феникса]

var
  wData: TWSAData;
  wSocket:TSocket;
  wAdrr: SockAddr_In;

  Request: String;
  Buffer: ANSIString;
  RecvCount: Integer;
  Otvet: String;
begin
  if WSAStartup(MAKEWORD(2, 0), wData) <> 0 then
    Raise Exception.Create('Ошибка инициализации');

  wSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  if wSocket = INVALID_SOCKET then
    Raise Exception.Create('Невозможно создать сокет!');

  wAdrr.sin_addr.S_addr := inet_addr(PChar('87.250.251.3'));
  wAdrr.sin_family:= AF_INET;
  wAdrr.sin_port := htons(80);

  if Connect(wSocket, wAdrr, SizeOf(wAdrr)) = SOCKET_ERROR Then
  begin
    WSACleanup();
    Raise Exception.CreateFmt('Connection error %d', [WSAGetLastError]);
  end;

  Request:= 'GET / HTTP/1.0'#13#10
           +'Host: www.yandex.ru'#13#10
           +'Connection: close'#13#10
           +#13#10;

  if Send(wSocket, Request[1], Length(Request), 0) = SOCKET_ERROR then
  begin
    CloseSocket(wSocket);
    WSACleanup();
    Raise Exception.CreateFmt('Ошибка при отправке!'#13#10'Error code %d', [WSAGetLastError]);
  end;

  RecvCount:= 1;
  Otvet:= '';

  //SetLength(Buffer, 10);//длину дальше ставим

  while RecvCount >  0 do
  begin
    SetLength(Buffer,1024);//побольше поставлю буфер
    RecvCount:=Recv(wSocket, Buffer[1], Length(Buffer)*SizeOf(ANSIChar), 0);
    SetLength(s,RecvCount);//если приняли менее чем длина строки то обрезаем строку, чтоб мусора не было
    Otvet:= Otvet + Buffer;
    if RecvCount = -1 then
    begin
      CloseSocket(wSocket);
      WSACleanup();
      Memo1.Text:= Otvet;
      Raise Exception.CreateFmt('Ошибка при чтении ответа!'#13#10'Error code %d', [WSAGetLastError]);
    end;
  end;

  Memo1.Text:= Otvet;
  CloseSocket(wSocket);
  WSACleanup;
end;

а если так?