Объявление 32-х битного типа не удается.

[Alex Cones]

таки, как насчет обходных маневров

Ну вообще у меня еще есть такая мыслишка:
Так как я делаю данную dll для архивации\разархивации bmp, то изучаю структуру bmp - там таки попалась LONG и из-за этого пришлось лезть на рожон. А вот то, где она попалась стало теплее:

LONG   biWidth; //Ширина - поставлю ограничение на 65535 пикселей
LONG   biHeight; //Высота - аналогично.
...
LONG   biXPelsPerMeter;// - а вот это я так и не выяснил, что сюда писать.
LONG   biYPelsPerMeter;// но на крайний случай,
//если это фиксированное число, то можно будет считать\записывать
// как два WORD подряд

Поэтому обходные пути здесь выдумать довольно таки легко. Главное здесь - сделать это как можно проще, чтобы не мучиться с побайтовым обращение в массиве.

P.S. Вот тема, в которой вся структура, буду рад, если покажете, что писать в гор\верт. разрешении:
http://programmersforum.ru/showthread.php?t=84703

[raxp]

вся структура описана в windows.pas и занимает 40 байт...

BITMAPCOREHEADER = tagBITMAPCOREHEADER;

  PBitmapInfoHeader = ^TBitmapInfoHeader;
  {$EXTERNALSYM tagBITMAPINFOHEADER}
  tagBITMAPINFOHEADER = packed record
    biSize: DWORD;
    biWidth: Longint;
    biHeight: Longint;
    biPlanes: Word;
    biBitCount: Word;
    biCompression: DWORD;
    biSizeImage: DWORD;
    biXPelsPerMeter: Longint;
    biYPelsPerMeter: Longint;
    biClrUsed: DWORD;
    biClrImportant: DWORD;
  end;
  TBitmapInfoHeader = tagBITMAPINFOHEADER;
  {$EXTERNALSYM BITMAPINFOHEADER}
  BITMAPINFOHEADER = tagBITMAPINFOHEADER;

проверить легко...

var t: BITMAPINFOHEADER;
    //s: array[0..31] of byte;
    //k: word; // longint dword
begin
 caption:= floattostr(sizeof(t))
end;

Вован давеча говорил...

[Alex Cones]

Longint;

Уж не думал я, что в бмп допустимо описание отрицательных ширины и высоты...

Уж и на том спасибо.

[raxp]

OFFTOP >
понимаю программисты борланда за всем видимо не уследили.

[Alex Cones]

Блин. Сегодня уселся вбивать в паскаль структуры FILEHEADER INFOHEADER V4 и V5 и натнулся опять на те же грабли. Не смотря на то, что в паскале написано, что
,
мол я могу использовать эти типы, нифига. Паскаль материт меня по матушке за DWORD. А этот тип довольно часто встречается по всем структурам. Причем в некоторых случаях "разбить" его не получится. Что делать?

P.S. Вообще теоретически можно его в структурах описать как LongInt, который есть по умолчанию, но потом очень сильно мучаться при считывании и записи.

[raxp]

ось-це (см. скрин)... кроме того, есть еще варианты:

Type
type
 LongWord = array [0..31] of byte;
 dword = longint; // 32-bit // да, тип знаковый,но 32 и для 16-ти разрядных приложений это неизбежно

type Ttype = record
 p1,p2,p3,p4 : Word;
end;



function stype(x: dword):dword; export;
var p:Ttype;
     f: file;
begin
 //reset(f,1); - это если с записью
 //BlockRead(f, p, SizeOf(p));

 stype:= x
end;

[Serge_Bliznykov]

Alex Cones, Вы абсолютно напрасно тратите время и силы, разрабатывая библиотеку под ОС, которой уже много лет не существует!! Dos is dead!
Хотите небольшой размер - пишите на Win API, или библиотечка KOL, или вообще на ассемблере (не шучу, если программа не имеет интерфейс и использует Win API, то писать её на том же MASM - нужны только знания и сноровка, по затратам времени выйдет практически то же самое, что Вы сейчас пытаетесь выдоить из стареньго дедушки TP )

[Alex Cones]

то писать её на том же MASM - нужны только знания и сноровка

Я не настолько хорошо знаю асм, чтобы писать свой алгоритм архивирования на нем.

Хотите небольшой размер - пишите на Win API

Спасибо, 12 кб - слишком много, когда можно получить 1.5 за те же деньги.

Dos is dead!

Он вечен. И неограничен в возможностях нужно только правиль подойти к вопросу.

P.S. Буду использовать LongInt вместо DWORD, благо ;%:?** из мелкософт использовали их, только чтобы записать ДВУХЗНАЧНОЕ ЧИСЛО (в 12 случаях из 14). В остальных случаях постараюсь не вылезти за рамки 2-х миллиардов.

[psycho-coder]

Сообщение от raxp

таки, как насчет обходных маневров... по входу ок, по выходу надоть подумать...

Library ACA128;

Type
 LongWord = array [0..31] of byte;



function stype(x: longword):integer; export;
begin
 stype:= x[0]
end;

exports stype index 1;


begin
end.

Может в Object все это дело?