Code:
procedure TForm1.Button1Click(Sender: TObject);
var
LibHandle: THandle;
Bitmap: Tbitmap;
begin
LibHandle:=Loadlibrary('MyDLL.dll');
try
if LibHandle<>0 then
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromResourceName(LibHandle,'BITMAP3');
Image1.Canvas.Draw(0,0,Bitmap);
end;
finally
Bitmap.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
LibHandle: THandle;
Bitmap: Tbitmap;
begin
LibHandle:=Loadlibrary('MyDLL.dll');
try
if LibHandle<>0 then
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromResourceName(LibHandle,'BITMAP3');
Image1.Canvas.Draw(0,0,Bitmap);
end;
finally
Bitmap.Free;
end;
end;
Ima li neko predstavu zasto ovo nece da radi?
Prijavljuje mi da resource 'BITMAP3' nije pronadjen, a ima ga pod tim imenom u dll.
Pomagajte, izludeh
btw, evo i kacim i primer