API Casten ala ALIAS von VB

[EWeiss]

Wie kann ich in Delphi ein ALIAS auf eine API Funktion realisieren.

Code:

DECLARE FUNCTION MyCreateDIBSection LIB "GDI32.DLL" ALIAS "CreateDIBSection" (BYVAL hdc AS DWORD, pbmi AS MYBITMAPINFO, BYVAL dwUsage AS DWORD, BYVAL ppvBits AS DWORD, BYVAL hSection AS DWORD, BYVAL dwOffset AS DWORD) AS DWORD

Ich möchte

Delphi-Quellcode:

type
  PBitmapInfo = ^TBitmapInfo;
  {$EXTERNALSYM tagBITMAPINFO}
  tagBITMAPINFO = packed record
    bmiHeader: TBitmapInfoHeader;
    bmiColors: array[0..0] of TRGBQuad;
  end;
  TBitmapInfo = tagBITMAPINFO;
  {$EXTERNALSYM BITMAPINFO}
  BITMAPINFO = tagBITMAPINFO;

das Array ändern bmiColors: array[0..255] of TRGBQuad
und einen eigenen Typ als MYBITMAPINFO definieren.

gruss Emil

[Dax]

Delphi-Quellcode:

function foo(...): ...; external 'dll' name 'bar';

[EWeiss]

Zitat:

Zitat von Dax

Delphi-Quellcode:

function foo(...): ...; external 'dll' name 'bar';

Kenn ich nicht muss mal nachlesen was foo genau macht.
Danke

gruss Emil

[Dunkel]

Zitat:

Zitat von EWeiss

Kenn ich nicht muss mal nachlesen was foo genau macht.

Foo ist quasi ein Platzhalter. Man könnte auch "Irgendwas", "IhrTextKönnteHierStehen" oder ähnliches schreiben. :wink:
Edit: hier noch die gekürzte deutsche Zusammenfassung der Bedeutung von Foo.

[EWeiss]

Zitat:

Zitat von Dunkel

Zitat:

Zitat von EWeiss

Kenn ich nicht muss mal nachlesen was foo genau macht.

Foo ist quasi ein Platzhalter. Man könnte auch "Irgendwas", "IhrTextKönnteHierStehen" oder ähnliches schreiben. :wink:

Das bedeutet ich muss die DLL statisch einladen(Load Library) um foo verwenden zu können ?
Oder geht das auch ohne.

gruss Emil

[Dunkel]

Die Funktion der DLL dynamischen linken funktioniert auch.

[EWeiss]

Finde keine Themen dazu auch nicht in der Hilfe
Keine ahnung wie ich das linken soll

gruss Emil

[DeddyH]

Delphi-Quellcode:

type
  TMyImportedFunction = function(dwFoo: DWORD): integer;stdcall;

var MyFunction: TMyImportedFunction = nil;

...

var h: THandle;
begin
  h := LoadLibrary('MeineDLL.dll');
  if h <> 0 then
    begin
      @MyFunction := GetProcAddress('Wuppdi');
      if Assigned(@MyFunction) then
        Bla := MyFunction(10);
    end;
end;

Die Funktion heißt hier in der DLL "Wuppdi" und angesprochen wird sie über "MyFunction". Ich kann Dir da Ollis DLL-Tutorial empfehlen.

[EWeiss]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

type
  TMyImportedFunction = function(dwFoo: DWORD): integer;stdcall;

var MyFunction: TMyImportedFunction = nil;

...

var h: THandle;
begin
  h := LoadLibrary('MeineDLL.dll');
  if h <> 0 then
    begin
      @MyFunction := GetProcAddress('Wuppdi');
      if Assigned(@MyFunction) then
        Bla := MyFunction(10);
    end;
end;

Die Funktion heißt hier in der DLL "Wuppdi" und angesprochen wird sie über "MyFunction". Ich kann Dir da Ollis DLL-Tutorial empfehlen.

So ganz verstehe ich das trotzdem nicht
Ich möchte nichts anderes als BITMAPINFO auf MyBITMAPINFO linken
Das andere bleibt doch alles gleich .. hmmm verstehe die Technik nicht.

Werd mir das Tutorial mal anschaun ob ich da einen vergleich habe.
Mit DLL's kenn ich mich aus nur nicht mit foo und konsorte.
Warum muss ich eine DLL einladen von der die externals schon in der Windows.pas enthalten sind.
Das ist doppelt gemoppelt oder nicht ?

Danke für deine beschreibung.

gruss Emil

[DeddyH]

:oops: Man sollte den Ausgangspost auch mal genau durchlesen. Allerdings bezweifle ich, ob das so gehen wird, denn die Funktion der DLL erwartet an der Stelle halt ein Array mit einem Element und nicht mit 256, d.h. die Record-Größe stimmt dann ja nicht. Kann aber auch sein, dass ich hier Quatsch rede.

[EWeiss]

Zitat:

Zitat von DeddyH

:oops: Man sollte den Ausgangspost auch mal genau durchlesen. Allerdings bezweifle ich, ob das so gehen wird, denn die Funktion der DLL erwartet an der Stelle halt ein Array mit einem Element und nicht mit 256, d.h. die Record-Größe stimmt dann ja nicht. Kann aber auch sein, dass ich hier Quatsch rede.

Nein das geht schon und ist kein problem mache es ja hier nur keine Ahnung
wie ich das in Delphi umsetzen kann...

gruss Emil

[DeddyH]

Du könntest die Typdeklaration der Funktion ja entsprechend anpassen.

Delphi-Quellcode:

type
  TFunction = function(Originalrecord: TOriginalrecord): Ergebnistyp;

wird zu

Delphi-Quellcode:

type
  TFunction = function(DeinRecord: TDeinRecord): Ergebnistyp;

Viel Erfolg.

[EWeiss]

Zitat:

Zitat von DeddyH

Du könntest die Typdeklaration der Funktion ja entsprechend anpassen.

Delphi-Quellcode:

type
  TFunction = function(Originalrecord: TOriginalrecord): Ergebnistyp;

wird zu

Delphi-Quellcode:

type
  TFunction = function(DeinRecord: TDeinRecord): Ergebnistyp;

Viel Erfolg.

Nein das geht auf keinen fall ich muss ja die alte weiterhin verwenden.

Hier ein Sample..

Delphi-Quellcode:

type
  TMyBitmapInfo = Record
     bmiHeader : TBitmapInfoHeader;
     bmiColors : array [0..255]  of RGBQUAD;
  end;

Delphi-Quellcode:

function TSkinEngine.MyCreateDIBSection (imgHdc: Hdc; Width, Height:Integer; BitCount: Integer):Integer;
var
  bi: MYBITMAPINFO;
  p : Pointer;
begin
    bi.bmiHeader.biSize := SIZEOF(bi.bmiHeader);
    bi.bmiHeader.biWidth := Width;
    bi.bmiHeader.biHeight := Height;
    bi.bmiHeader.biPlanes := 1;
    bi.bmiHeader.biBitCount := BitCount;
    bi.bmiHeader.biCompression := BI_RGB;
    Result := CreateDIBSection(imgHdc, bi, DIB_RGB_COLORS, p, 0, 0);
end;

CreateDIBSection kennt aber MYBITMAPINFO nicht ok ?

Weil diese im Original auf

Delphi-Quellcode:

type
  PBitmapInfo = ^TBitmapInfo;
  {$EXTERNALSYM tagBITMAPINFO}
  tagBITMAPINFO = packed record
    bmiHeader: TBitmapInfoHeader;
    bmiColors: array[0..0] of TRGBQuad;
  end;
  TBitmapInfo = tagBITMAPINFO;
  {$EXTERNALSYM BITMAPINFO}
  BITMAPINFO = tagBITMAPINFO;

zeigt...
Also was ich möchte ist ähnlich wie in VB MYBITMAPINFO auf die Originale DLL verlinken.

Sollte dann eigentlich so aussehen
Org..

Delphi-Quellcode:

{$EXTERNALSYM CreateDIBSection}
function CreateDIBSection(DC: HDC; const p2: TBitmapInfo; p3: UINT;
  var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;

Neu..

Delphi-Quellcode:

{$EXTERNALSYM CreateDIBSection}
function CreateDIBSection(DC: HDC; const p2: TMyBitmapInfo; p3: UINT;
  var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall;

gruss Emil

[EWeiss]

Nach einigen versuchen habe ich es selbst geschafft:
Hier ist die lösung...

Delphi-Quellcode:

type
  TMyBitmapInfo = Record
     bmiHeader : TBitmapInfoHeader;
     bmiColors : array [0..255]  of RGBQUAD;
  end;

  function MyCreateDIBSection(DC: HDC; const p2: TMyBitmapInfo; p3: UINT;
  var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; stdcall; external 'GDI32.DLL' name 'CreateDIBSection';

Delphi-Quellcode:

// Create DIB section
function TSkinEngine.skCreateDIBSection (imgHdc: Hdc; Width, Height:Integer; BitCount: Integer):HBITMAP;
var
  bi: TMyBitmapInfo;
  p : Pointer;
begin
    bi.bmiHeader.biSize := SIZEOF(bi.bmiHeader);
    bi.bmiHeader.biWidth := Width;
    bi.bmiHeader.biHeight := Height;
    bi.bmiHeader.biPlanes := 1;
    bi.bmiHeader.biBitCount := BitCount;
    bi.bmiHeader.biCompression := BI_RGB;
    Result := MyCreateDIBSection(imgHdc, bi, DIB_RGB_COLORS, p, 0, 0);
end;

aufruf als Beispiel:

Delphi-Quellcode:

hPaintBitmap := skCreateDIBSection(imgHdc, MAX(rc.Right, X), MAX(rc.Bottom, Y), 32);

gruss Emil