Подскажите - почему я данные не получаю? (TClientSocket)

← →
Andrey1234 (2004-02-06 20:04) [0]

Подскажите - Где ошибка? Что я неправильно делаю?

Type
pTBlock=^TBlock;
TBlock=array[0..10000] of byte;

Var
Data:pTBlock;

Посылаю:

xSize:=length(xStr);
getmem(data,xSize);
System.Move(xStr[1],data^[0],xSize);
ClientSocket1.Socket.SendBuf(data,xSize);

Принимаю:

Procedure TForm1.ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
xSize:=Socket.ReceiveLength;
GetMem(data,xSize);
Socket.ReceiveBuf(data^[0], xSize);
end;

ReceiveLength возвращает кол-во посылаемых байт, а в Data мусор

← →
Verg © (2004-02-06 20:29) [1]

> ClientSocket1.Socket.SendBuf(data^[0],xSize);

А вообще зачаем эти бессмысленные манипуляции с блоками памяти.
НАсколько я понял xStr - строка, т.е. в сущности тоже блок данных

> ClientSocket1.Socket.SendBuf(xStr[1], length(xStr));

← →
Andrey1234 (2004-02-06 21:43) [2]

не, мне надо блок байт, строку я и сам могу

а вот в чем здесь проблема не пойму никак.
Может у кого примерчик есть с использованием SendBuf и ReceiveBuf
был бы очень признателен.

← →
Verg © (2004-02-06 22:00) [3]

> Andrey1234 (06.02.04 21:43) [2]
> не, мне надо блок байт, строку я и сам могу
>
> а вот в чем здесь проблема не пойму никак.

Я че-то не понял :(
Ты спросил где ошибка, я тебе ответил:

> Verg © (06.02.04 20:29) [1]
>
> > ClientSocket1.Socket.SendBuf(data^[0],xSize);

Че, не понятно?

← →
Verg © (2004-02-06 22:02) [4]

> > не, мне надо блок байт, строку я и сам могу

Не, ну это, конечно шедевр....

Я фиг-гею...

← →
Andrey1234 (2004-02-06 22:10) [5]

так ClientSocket1.Socket.SendBuf(data,xSize);

тоже не пашет - обсолютно такая же ситуация как и у
arhis, которого Вы послали дружно

← →
Verg © (2004-02-06 22:16) [6]

> Andrey1234 (06.02.04 22:10) [5]
> так ClientSocket1.Socket.SendBuf(data,xSize);

ClientSocket1.Socket.SendBuf(data^[0], xSize);

Долго еще тупить будем?

← →
Andrey1234 (2004-02-06 22:35) [7]

спасибо,
больше тупить не буду, дошло где ошибался, а ты читай, что тебе пишут лучше

← →
Verg © (2004-02-06 22:48) [8]

> Andrey1234 (06.02.04 22:35) [7]
> спасибо,
> больше тупить не буду, дошло где ошибался(1), а ты читай, что
> тебе пишут лучше(2)

1) Жираф?
2) Иди лесом, мудень.

← →
Andrey1234 (2004-02-07 02:33) [9]

был бы ты рядом 1,2,3, я бы тебя трахнул, чтоб не обзивался, противная
коза,
ох, подоил бы

p.s.
людей надо любить :) а таких как ты - в жопу, да поглубже поглубже.

> Andrey1234 (06.02.04 22:35) [7]

> а ты читай, что тебе пишут лучше

нет вы посмотрите на него, а ? каков умник нашелся !?

а ты хам, братец, однако !

тебе мгновенно указали на твою ошибку, ты же еще в идиотские амбиции бросаешься ...

> не, мне надо блок байт, строку я и сам могу

AnsiString-строка, по твоему, не является блоком байт ?
марш учить матчасть !!

Ух, как ты меня "уел" :)))
Ай молодца!

Да уж, точно говорят "Не мечите бисер перед свиньями..."

Иди, "люби людей", сексменьшинство ты наш...

> Verg © (07.02.04 12:26) [11]

ну и ты, Андрей, тоже хорош)
взял спровоцировал "меньшинства" на публичную акцию волеизъявления))

надеюсь, ты понял меня)

Подскажите - почему я данные не получаю? (TClientSocket) Найти похожие ветки