Einzelnen Beitrag anzeigen

lizardking

Registriert seit: 2. Sep 2005
76 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: PlugIn Schnittstelle - DLL

  Alt 3. Jul 2006, 20:40
Versuch's mal so: (ungetestet)

Delphi-Quellcode:
function TPlugIn01.Loadmage(Filename: String): TBitmap;
begin
  Result := TBitmap.Create;
  Result.LoadFromFile(Filename);
  MessageBox(Parent, PChar(IntToStr(Result.Width)), '', 0);
end;
Was Du gemacht hast ist naemlich, dem Result den Pointer auf das lokal erstellte Bitmap zu setzen. Da Du dann aber das Bitmap mit free wieder freigibst, ist logisch dass da nichts ankommt.

Gruesse,

Lizzy
  Mit Zitat antworten Zitat