IdUDPServer indy 10

[rangel]

На 9 инди у меня всё работало нормально
там был
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TStream; ABinding: TIdSocketHandle);

на 10 инди стало так
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TBytes; ABinding: TIdSocketHandle);

и такой код больше не работает

var
Stream1: TStringStream;
begin
Stream1 := TStringStream.Create('');
Stream1.CopyFrom(AData,AData.size);

подскажите как мне получить в мемо через IdUDPServer только что отправленный текст через IdUDPClient

я совсем запутался... зачем менять TStream на TBytes....(((

[Квэнди]

Ну можно было для начала хотя бы в справке посмотреть. В Indy есть куча статических методов перевода Tbytes куда угодно )

[rangel]

А подробнее?(( немогу разобратсья
Заслуженный модератор Квэнди справка на англ, и у меня она вообще не работает по ф1 ошибка вылезает...

[Квэнди]

Ну во-первых:
http://www.indyproject.org/docsite/h...le=TBytes.html
Подключите модуль Idglobal,там есть множество функций преобразования, например:

function BytesToString(const AValue: TIdBytes; AEncoding: TIdTextEncoding = nil): string; overload;
function BytesToString(const AValue: TIdBytes; const AStartIndex: Integer; const ALength: Integer = -1; AEncoding: TIdTextEncoding = nil): string; overload;

[rangel]

спасибо работает

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send('Hello');
end;



procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
begin
Memo1.text:=BytesToString(Adata,en7bit);
end;

[amber_splash]

кириллические буквы не понимает! перепробовал все варианты конвертации на входе сервера в AData вместо кириллицы только знаки "?"

[Квэнди]

Откуда такая уверенность ? показывайте код

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

у меня была трабла с кодировками в шестерке....
я конвертил через UTF8ToANSI

[Lime]

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

кириллические буквы не понимает! перепробовал все варианты конвертации на входе сервера в AData вместо кириллицы только знаки "?"

Та - же проблема. При использовании UTF8ToANSI невидно даже "?"

[SERG1980]

Я вообще так делал и проблем не было

procedure TChatForm.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
  var i:integer;
      RxText:String;
begin
 RxText:='';
 for i:= 0 to High(Adata) do RxText:=RxText+chr(Adata[i]);

end;