переведите на delphi Спасибо

← →
Goga © (2005-09-24 13:50) [0]

class CLibRAS
{
public :
BMP * LoadRAS(FILE* handle);
unsigned GetWidth(BMP *dib);
BYTE *GetBits(BMP *dib);
unsigned GetHeight(BMP *dib);
BITMAPINFO *GetInfo(BMP *dib);
unsigned GetLine(BMP *dib);
unsigned GetBPP(BMP *dib);
unsigned GetColorsUsed(BMP *dib);
RGBQUAD * GetPalette(BMP *dib);
unsigned GetPitch(BMP *dib);

private :
FILE *m_handle;
RASHEADER header;
BOOL rle;
BOOL isRGB;

BITMAPINFOHEADER *GetInfoHeader(BMP *dib);
RASICCPROFILE * GetICCProfile(BMP *dib);
BMP * Allocate(int width, int height, int bpp, unsigned red_mask = 0, unsigned green_mask = 0, unsigned blue_mask = 0);
BMP * AllocateT(IMAGE_TYPE type, int width, int height, int bpp = 8, unsigned red_mask = 0, unsigned green_mask = 0, unsigned blue_mask = 0);
void ReadData(BYTE *buf, DWORD length);
void SwapField(unsigned long *lp);
int CalculatePitch(int line);
int CalculateUsedPaletteEntries(int bit_count);
int CalculateLine(int width, int bitdepth);
};

← →
Eraser © (2005-09-24 15:36) [1]

> Goga © (24.09.05 13:50)

100 WMZ

← →
saNat © (2005-09-24 16:53) [2]

Хе... Много я видел на форуме и сам время от времени прошу помочь Мастеров (в том числе кусочками кода), но так...

← →
Goga © (2005-09-24 17:16) [3]

тут не много ты не видел сколькоя перевел

← →
Goga © (2005-09-24 17:16) [4]

Удалено модератором

> Goga © (24.09.05 17:16) [5]
>
> тут не много ты не видел сколькоя перевел

Если ты СТОЛЬКО перевёл, неужели возникают сложности при переводе такого элементарного кода? )

переведите на delphi Спасибо Найти похожие ветки