Форум на Исходниках.RU

Ошибки при работе с Indy 10.0.52

ViktorXP — Tue, 21 Aug 2007 15:15:25 +0000

ViktorXP: я канешно извеняюсь что в мешиваюсь в вашу беседу, но мне показалось странным что это никто не заметил.

Цитата User32 @ 14.08.07, 14:51

StringFormatedStream.CopyFrom(AData, AData.Size);

но функции CopyFrom нужен поток а AData тут масив байт
тут лудше использовать Read(..)

Ошибки при работе с Indy 10.0.52

User32 — Wed, 15 Aug 2007 06:47:21 +0000

User32:

Цитата P.O.D @ 14.08.07, 15:52

User32 add to uses IdGlobal, IdSocketHandle

Уже давно добавил, но бестолку. :(

-Added 15.08.07, 06:48

Цитата WildBear @ 14.08.07, 18:00

Ну да, так и должно быть... CopeFrom берет данные из TStream, не из TBytes.

Да, вот только почемуто не работает :(
P.S. может попробовать с указателями поизвращаться, хотя AData ничего не даст...

Ошибки при работе с Indy 10.0.52

WildBear — Tue, 14 Aug 2007 18:00:56 +0000

WildBear: Ну да, так и должно быть... CopeFrom берет данные из TStream, не из TBytes.

Ошибки при работе с Indy 10.0.52

P.O.D — Tue, 14 Aug 2007 15:52:47 +0000

P.O.D: User32 add to uses IdGlobal, IdSocketHandle

Ошибки при работе с Indy 10.0.52

User32 — Tue, 14 Aug 2007 14:51:47 +0000

User32: Теперь ещё лучше, пишу:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;

ABinding: TIdSocketHandle);

var

StringFormatedStream: TStringStream;

begin

StringFormatedStream := TStringStream.Create('');

StringFormatedStream.CopyFrom(AData, AData.Size);

Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);

StringFormatedStream.Free;

end;

и получаю:

[Error] Unit1.pas(78): Incompatible types: 'TStream' and 'TBytes'

[Error] Unit1.pas(78): '(' expected but ')' found

[Error] Unit1.pas(79): Missing operator or semicolon

[Fatal Error] Server.dpr(5): Could not compile used unit 'Unit1.pas'

А если так:

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;

ABinding: TIdSocketHandle);

var

i: integer;

Reply: string;

begin

// if OnAndOff = False then Exit else

Reply := '';

for i:=0 to 512 do

begin

if AData[i] = 0 then break;

Reply := Reply + char(AData[i]);

end;

Memo1.Lines.Add(Reply);

end;

то всё впорядке. <_<

Ошибки при работе с Indy 10.0.52

User32 — Tue, 14 Aug 2007 12:38:40 +0000

User32:

Цитата spleenJack @ 14.08.07, 12:32

Цитата

[Error] Unit1.pas(25): Undeclared identifier: 'TBytes'
[Error] Unit1.pas(26): Undeclared identifier: 'TIdSocketHandle'

Видимо нужно в uses подключить модули SysUtils и IdSocketHandle.
Остальные ошибки - чисто синтаксические.

Уже пробовал, не помогает :(

Добавлено 14.08.07, 13:04
Решил проблему так:

В начале лечил явно прописав

type

TBytes = array[0..MaxSize] of Byte;

Но это несовсем красиво и поэтому я просто добавил в uses

uses

IdGlobal, IdSocketHandle;

и всё заработало вроде бы...

Ошибки при работе с Indy 10.0.52

spleenJack — Tue, 14 Aug 2007 12:32:57 +0000

spleenJack:

Цитата

[Error] Unit1.pas(25): Undeclared identifier: 'TBytes'
[Error] Unit1.pas(26): Undeclared identifier: 'TIdSocketHandle'

Видимо нужно в uses подключить модули SysUtils и IdSocketHandle.
Остальные ошибки - чисто синтаксические.

Ошибки при работе с Indy 10.0.52

User32 — Tue, 14 Aug 2007 12:24:35 +0000

User32: Использую Delphi 6.0 EE и Indy 10.0.52.

При создании обработчика OnUDPRead получаю ошибки, раньше такого небыло.

procedure IdUDPServer1UDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle);

[Error] Unit1.pas(25): Undeclared identifier: 'TBytes'

[Error] Unit1.pas(26): Undeclared identifier: 'TIdSocketHandle'

[Error] Unit1.pas(76): ')' expected but identifier 'Size' found

[Error] Unit1.pas(77): Missing operator or semicolon

[Error] Unit1.pas(77): ')' expected but identifier 'PeerIP' found

[Error] Unit1.pas(77): 'END' expected but ')' found

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Эти типы данных существуют, но непонятно почему Delphi их не принимает.

У когонибуть было такое? и как лечить.

Переустановку не предлагать - уже делал не помогло.