Привет!

В Dll.dll пишу:

procedure proc1(var bmp: TBitmap);
begin
with bmp.Canvas do
begin
Brush.Color := clRed;
Rectangle(0, 0, 100, 100);
end;

В моей проге:

TProc = procedure (var bmp: TBitmap); stdcall;
....
var
Handle: THandle;
proc1: TProc;
I: TBitmap;
begin
I := TBitmap.Create;
Handle := LoadLibrary('Dll.dll');
@proc1 := GetProcAddress(handle, 'proc1');
if @proc <> nil then
proc1(I);
Image1.Picture.Bitmap := I;
end;

Но прямоугольник Image1 не рисуется! А если в Dll.dll вставить
bmp.LoadFromFile, то в Image1 все нормально( и то, только после Repaint) . Как это объяснить?

Спасибо!

Это сообщение отредактировал(а) Vasya - 15.7.2003, 10:37

Все, нашел, не смотря на то что в proc1 написано var bmp размеры битмапа надо всетаки самому установить