Не компилится DLL тыкает в TBitMap.Create;

[Alex Cones]

library Engine;

uses
  SysUtils,
  Classes,
  ComCtrls, ExtCtrls, Graphics, Windows;

Type
  TArBM = Array[1..21] of TBitMap;

{$R *.res}


Procedure LoadBM(Var LoadIMG:TImage; Dir:String;
                     MasBM: TArBM; Num: Byte);
Var
 {...}
begin
 {...}
   MasBM[Num]:=TBitMap.Create;
 {...}
End;

begin
end.

OBJECT OR CLASS TYPE REQURED

[psycho-coder]

Вы переинициализируете обычную переменную как массив.

Procedure LoadBM(Var LoadIMG:TImage; Dir:String;
                     MasBM: TArBM; Num: Byte);
Var
 {...}
begin
 {...}
   MasBM[Num]:=TBitMap.Create;
 {...}
End;

Тогда уж лучше передавать массив или передавать количество эл. массива и инициализировать дин. массив внутри процедуры:

Procedure LoadBM(Var LoadIMG:TImage; Dir:String; Num: Byte);
Var
 {...}
  MasBM: TArBM;
begin
 {...}
   SetLength(MasBM, Num);
   MasBM[Num]:=TBitMap.Create;
 {...}
End;

[Alex Cones]

То есть заполнять массив внутри ДЛЛ как одиночный битмап, а в гл. программе назначать ячейке массива это значение? Просто смысл этой функции - заполнение битмапа (одного, с заданным номером Num)


---

Перебил переменную в локалку, все равно тычет в эту строку. Даже когда я поменял её тип просто на TBitMap.

[psycho-coder]

Тогда может передавать конкретный элемент массива (MasBM[i])?

[Alex Cones]

Да не в том дело, я могу конечно передавать отдельный элемент или просто переменную типа TBitMap, но факт в том, что где бы я её не описывал, компилятор все равно тычет в эту строку пальцем.

[Пепел Феникса]

попробуй так описать заголовок функции

Procedure LoadBM(Var LoadIMG:TImage; Dir:String;var MasBM: TArBM; Num: Byte);

а красный не нужен...или вы создаете обьект типа TImage там?
(не забывайте что есть обьявление класса, от этого и нужно пахать)

[Alex Cones]

Неее...((( Все равно не хочет работать. Может попробовать что-то добавить в юзесы? (в смысле свойства класса описываются где-то отдельно)...


--------------------------------------------------------------------------------------------------------------------

Так и знал!!! Добавил все юзесы пачкой:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, Menus;
Все откомпилировалось без ошибок!
Теперь такой вопрос:
Что отсюда можно отмести, чтоб уменьшить объем ДЛЛ, а то 3 мб это слишком.

[psycho-coder]

Даже не знаю что сказать:

Type
  TArBM = Array[1..21] of TBitMap;

procedure TForm1.Button2Click(Sender: TObject);
var
  MasBM: TArBM;
begin
  MasBM[1] := TBitMap.Create;
  MasBm[1].LoadFromFile('q.bmp');
  Image1.Picture.Bitmap := MasBM[1];
  MasBM[1].Free;
end;

Или я опять не так понял?

[Пепел Феникса]

попробуйте сделать так:

Procedure LoadBM(LoadIMG:TImage; Dir:String;var MasBM: Array of TBitMap; Num: Byte);

правда не помню нужен ли тут вар...но пусть будет на всяк

[Impuls1989]

Сообщение от Alex Cones

Что отсюда можно отмести, чтоб уменьшить объем ДЛЛ, а то 3 мб это слишком.

Нет ничего легче. Удаляйте по одному, если компилит - удаляйте следующее, не компилит - возвращайте и перходите к другому элементу.