Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

Помогите перевести кусок кода С++ на делфи   Найти похожие ветки 

 
COOLer   (2005-01-18 12:49) [0]

class TFRSData
{
public:
 FRS_HDATA Handle;
 DWORD     LastError;

 operator FRS_HDATA() { return Handle; }

 void Make(TStream * stream, DWORD _type,FACE_LOC * peyes=0);
 void Make(TMemoryStream * stream, DWORD _type,FACE_LOC * peyes=0);
 void Make(AnsiString afile,FACE_LOC * peyes=0);
 void Make(IBHabito* ibhabito);
 void GetIcon(Graphics::TBitmap * image);
 void SetIcon(Graphics::TBitmap * image);
 void Destroy();

 TFRSData() : Handle(0) { LastError = FRS_ERR_NONE; }
 ~TFRSData() { Destroy(); }
};

Может есть какаянибудь прога переводяшая заголовочные файлы С в делфийские??


 
Shizuku ©   (2005-01-18 14:17) [1]

Лучше скажи зачем это надо и что этот кусок кода должен сделать.


 
KSergey ©   (2005-01-18 14:36) [2]

Дык это просто объявление класса
Какой прок от перевода его на другой язык??


 
COOLer   (2005-01-19 09:58) [3]

вот кусок кода
void BitmapToRaw(TStream * stream, Graphics::TBitmap * bitmap)
{
 void* Ptr;
 int sz;

 bitmap->PixelFormat = pf24bit;
 sz  = bitmap->Width * bitmap->Height + 2 * sizeof(DWORD);
 Ptr = malloc(sz);
 if(Ptr != NULL)
 {
   ((DWORD*)Ptr)[0] = bitmap->Width;
   ((DWORD*)Ptr)[1] = bitmap->Height;
   FRSX_BitmapToRaw(&((BYTE*)Ptr)[8],bitmap->ScanLine[bitmap->Height-1],bitmap->Width,bitmap->Height,PIXELFORMAT_RGB24);
   stream->Size = 0;
   stream->Write(Ptr, sz);
   free(Ptr);
 }
}

ни как не могу разобраться с указателем!



Страницы: 1 вся ветка

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
1-1105743181
P.N.P.
2005-01-15 01:53
2005.01.30
TActionMainMenuBar - Scroll


14-1105623760
Kerk
2005-01-13 16:42
2005.01.30
Философская сторона модерирования


3-1104085944
Vir
2004-12-26 21:32
2005.01.30
TADOQuery обновление


1-1105943055
DelphiN!
2005-01-17 09:24
2005.01.30
Отключить контексное меню TWebBrowser-a


11-1088618446
Red Wind
2004-06-30 22:00
2005.01.30
CloseQuery