Сокеты..

[mrAndersen]

Создаю тут, потому что в "Сетевом" форуме активность минимальная, а вопрос никак не решиться..

Есть компоннет TServerSocket, есть сторнняя прога, которая шлет на tcp порт текст. Если текст этот принимать Socket.ReciveText() то приходит весь, но вопросиками частично, тоесть я так понимаю кодировка какая-то не та.

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

Вопрос, как сделать чтобы в рисерв текст принималось всё правильно. Или в ресервбуф, какнибудь кароче...

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 //Socket.ReceiveBuf(r,1000); - без первого символа, не полный текст
 //r:=Socket.ReceiveText; - неправильное отображение..
 Memo1.Lines.Add('<- '+r);
 r:='';
end;

[Don Karleone]

Delphi какой?

[mrAndersen]

Delphi 2009

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

а кросспостинг вообще карается.

[mrAndersen]

Да я уже третий день бьюсь с этим, щас уже по байтам пробовал принять))

[evg_m]

var
r1: string[1000];
v2: array[0..1000] of char
begin
Socket.ReceiveBuf(r1[1]@,1000); - без первого символа, не полный текст
r:=r1;
Socket.ReceiveBuf(v2[0]@,1000); - без первого символа, не полный текст
r:=v2;

OEMtoAnsi/AnsitoOEM ?

[mrAndersen]

var
r1: string[1000];
v2: array[0..1000] of char
begin
Socket.ReceiveBuf(r1[1]@,1000); - без первого символа, не полный текст
r:=r1;
Socket.ReceiveBuf(v2[0]@,1000); - без первого символа, не полный текст
r:=v2;

Вообще пустая строка..

OEMtoAnsi/AnsitoOEM ?

По подробнее пожалуйста..

[igh0st]

Я бы не заморачивался на твоем месте, т.к. если "вопросики" приходят через SendText, то и через буффер тоже они придут. Кодируй строку в Base64 и отправляй текстом, а на клиенте - получай и декодируй.

[Stilet]

Кросспостинг. Закрываю.

активность минимальная, а вопрос никак не решиться..

Это не повод нарушать правила.