из .exe TBitMap передать в DLL(форма)

[lexaltd]

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

Возможно нужно передавать var параметр:

function ShowAbout(Handle: THandle;var BitMap : TBitMap):Longint;

такая же ошибка

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

И кстати, почему не попробовать обычным присваиванием?

Если ты имееш в виду так

BitMap1 := BitMap;

то ошибка уже такая

Exception EConvertError in module Project1.exe at 000154B4.

[Stilet]

lexaltd

Так, я недосмотрел... Ты ведь в первом нерабочем примере не создаешь BitMap, а во втором создаешь,
Для Form1.Image1.Picture.Bitmap.Assign( BitMap);// тут вываливается ошибка нужно чтоб параметр в нем небыл равен nil иначе:

procedure TPersistent.Assign(Source: TPersistent);
begin
  if Source <> nil then Source.AssignTo(Self) else AssignError(nil);
end;

Так что создавать нужно экземпляр

[mihali4]

А по-моему, все проще - если не использовать в качестве имен зарезервированные слова, то можно избежать многих проблем...
Вас самого не коробит ваша конструкция:
Bitmap.Assign(BitMap) ?
Сделайте хотя бы
Form1.Image1.Picture.Bitmap.Assign( BitMap1);
И еще. Не поленитесь посмотреть в хэлпе про этот метод.
Там довольно полезные вещи в примере указаны. Например, Dormant, FreeImage, ReleaseHandle ...

[lexaltd]

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

А по-моему, все проще - если не использовать в качестве имен зарезервированные слова, то можно избежать многих проблем...
Вас самого не коробит ваша конструкция:
Bitmap.Assign(BitMap) ?

Где там такое написано ?
Там написано
BitMap1.Canvas.Draw(0,0,BitMap);

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

Сделайте хотя бы
Form1.Image1.Picture.Bitmap.Assign( BitMap1);
И еще. Не поленитесь посмотреть в хэлпе про этот метод.
Там довольно полезные вещи в примере указаны. Например, Dormant, FreeImage, ReleaseHandle ...

function ShowAbout(Handle: THandle;BitMap12 : TBitMap):Longint;
begin
 Application.Handle:= Handle;
 Form1:= TForm1.Create(Application);
 Form1.Image1.Picture.Bitmap.Assign(BitMap12);// тут вываливается ошибка 
 Form1.Show;
 Result:=LongInt(Form1);
end;

Если от этого что то изменится

Так что создавать нужно экземпляр
Во втором примери я создаю Bitmap1 уже в ДЛЛ и потом делаю ширину и высоту такую как Bitmap каторый передал и делаю BitMap1.Canvas.Draw(0,0,BitMap);
А в первом примери что я там создам - Bitmap.Create который передал

Если передавать Handle ТBitmap то тогда процедура Assign работает

Image1.Picture.Assign(BitMap12);