Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
ВнизПомогите перевести кусок кода С++ на делфи Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.035 c