Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c