| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

COOLer ©   (2005-01-18 12:49:00) 

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(); }
};

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

---

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

вот кусок кода
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);
 }
}

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

---

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

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

---

Shizuku   (2005-01-18 14:17:00) [3]

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

---

Наверх