Мужики! Помогите, plz, перевести код из Delphi в C++ Builder

[ticksp]

Собственно сабж.
Есть код на Delphi:

Код:

FI_Handle = Pointer;

function TTargaImage.FI_ReadProc(buffer : pointer; size : Cardinal; count : Cardinal; handle : fi_handle) : UInt; stdcall;
var
  stream: TStream;
  bytesToRead: Cardinal;
begin
  stream := TStream(handle);
  bytesToRead := size*count;
  Result := stream.Read(buffer^, bytesToRead);
end;

Никак не могу тоже повторить на C++ Builder. Особенно интересует строка stream := TStream(handle); так как компилятор ругается на нее.

[PooH]

а если попробовать

Код:

  TStream * stream;
...
stream = new TStream(handle);
...
delete (stream);

ну примерно что-то в этом духе.

[ticksp]

Уже пробовал! Не проходит:

[C++ Error] NewImageTypes.cpp(20): E2352 Cannot create instance of abstract class 'TStream'
[C++ Error] NewImageTypes.cpp(20): E2353 Class 'TStream' is abstract because of '_fastcall TStream::Read(void *,int) = 0'

[PooH]

тогда попробуй:
stream = TStream.Create(...)

вместо stream = new TStream(handle);

[ticksp]

Не проходит:

[C++ Error] NewImageTypes.cpp(20): E2108 Improper use of typedef 'TStream'

[PooH]

тогда попробуй использовать:

Код:

 TMemoryStream * stream;
...
stream = new TMemoryStream();
...
delete stream;

увы, под рукой нет билдера

[Scorp__)]

ticksp,

[C++ Error] NewImageTypes.cpp(20): E2352 Cannot create instance of abstract class 'TStream'
[C++ Error] NewImageTypes.cpp(20): E2353 Class 'TStream' is abstract because of '_fastcall TStream::Read(void *,int) = 0'

Нельзя создать экземпляр абстрактного класса! Или что-то напутано в объявлении методов, или одно из двух Компилятор ругается абсолютно верно. Убери присваивание нулю

Код:

TStream::Read(void *,int) = 0

и определи метод и все будет нормально. Не верю, чтобы Delphi это собирала не ругаясь.