Hi @ all.

Ich suche nun schon nach einer Weile für dieses Problem... und zwar:

Ich habe ein Programm geschrieben, welches unbedingt eine DLL benötigt. Ich möchte dem User aber das Programm als eine einzige Datei präsentieren. Also habe ich die DLL in eine .rc eingefügt und das ganze mit Delphi zu einer .res kompilieren lassen. Diese habe ich auch schon in das Programm eingefügt und ich weiß auch, wie ich die DLL wieder aus der Res-Datei herausbekomme.
Nun das Problem: Mein Programm startet, und meckert mich an, dass die DLL fehlt, weil sie noch nicht aus den Ressourcen extrahiert wurde. Wie kann ich das Lösen, dass die DLL vor allem anderen[b] extrahiert wird, damit mein Programm die DLL auch findet?

Kann ich die DLL-Prozeduren vielleicht sogar direkt aus den Ressourcen heraus aufrufen?


THX 4 Help.


C ya.

Zu welchen Zeitpunkt extrahierst du denn die Ressource? In OnCreate der Form oder schon irgendwo im Hauptprogramm?

Zitat von HaCkAttaCk2001:

Nun das Problem: Mein Programm startet, und meckert mich an, dass die DLL fehlt, weil sie noch nicht aus den Ressourcen extrahiert wurde. Wie kann ich das Lösen, dass die DLL vor allem anderen extrahiert wird, damit mein Programm die DLL auch findet?

Du darfst nicht statisch linken (function FunktionsName; external DLL_name name 'FunktionsName'; )
sondern musst dynamisch linken mit LoadLibrary, GetProcAdress und FreeLibrary.
LoadLibrary darfst du erst dann aufrufen, wenn die DLL auf dem Dateisystem liegt.

Zitat von HaCkAttaCk2001:

Kann ich die DLL-Prozeduren vielleicht sogar direkt aus den Ressourcen heraus aufrufen?

Nein.
PS: HaCkAttaCk2001; soll das heisen du bist ein Hacker ?

Hi.

Zum 1. Post: Das Extrahieren der DLL aus den Ressourcen nehme ich im OnCreate vor... zu spät?

Zum 2. Post: Das mit dem dynamischen Einbinden hab ich auch schon gelesen, allerdings stellt sich mir da eine Frage: Wo soll ich die DLL dynamisch laden lassen?

Kleine Ergänzung noch zu meinem Post oben: Mein Hauptprogramm selbst braucht diese DLL nicht, aber eine Unit, die ich verwenden muss. Kann ich vielleicht die Unit erst später dazuladen lassen? Denn ich glaub das verheddert sich doch, wenn ich im Hauptprogramm die DLLs dynamisch lade, die die Unit schon viel früher braucht... oder hab ich da nen Denkfehler?


C ya.

[OT]
PS: Zum Nicknamen: Ich interessiere mich sehr für's Hacken. Aber in letzter Zeit nicht so sehr. Das heißt aber nicht, dass ich deswegen gleich meinen Nicknamen aufgebe, den ich mir vor Jahren mühevoll ausgedacht habe ^^ .
[/OT]

Zitat von HaCkAttaCk2001:

Kleine Ergänzung noch zu meinem Post oben: Mein Hauptprogramm selbst braucht diese DLL nicht, aber eine Unit, die ich verwenden muss. Kann ich vielleicht die Unit erst später dazuladen lassen? Denn ich glaub das verheddert sich doch, wenn ich im Hauptprogramm die DLLs dynamisch lade, die die Unit schon viel früher braucht... oder hab ich da nen Denkfehler?

Die DLL muss mit LoadLibrary in dieser Unit dynamisch geladen und freigegeben werden.
Wenn du von dieser Unit keinen Sourcecode hast, dann hast du die A-Karte gezogen.
Ansonsten einfach in die Unit mal nach dem Wort External suchen.

zusammenfalten · markieren

Delphi-Quellcode:

// Hier ein Beispiel (von Marcel van Brakel), wie man dynamisch oder statisch linken kann
procedure GetProcedureAddress(var P: Pointer; const ModuleName, ProcName: string);
var
  ModuleHandle: HMODULE;
begin
  if not Assigned(P) then
  begin
    ModuleHandle := GetModuleHandle(PChar(ModuleName));
    if ModuleHandle = 0 then
    begin
      ModuleHandle := LoadLibrary(PChar(ModuleName));
      if ModuleHandle = 0 then raise Ewin32Error.Create('Library not found: ' + ModuleName);
    end;
    P := GetProcAddress(ModuleHandle, PChar(ProcName));
    if not Assigned(P) then raise EWin32Error.Create('Function not found: ' + ModuleName + '.' + ProcName);
  end;
end;

{$IFDEF DYNAMIC_LINK}
var
  _FindWindowEx: Pointer;

function FindWindowEx;
begin
  GetProcedureAddress(_FindWindowEx, user32, 'FindWindowExW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_FindWindowEx]
  end;
end;
{$ELSE}
function FindWindowEx; external user32 name 'FindWindowExW';
{$ENDIF DYNAMIC_LINK}

Hi.

Du liebes Lieschen...

Also nochmal zum mitmeißeln (den Sourcecode der Unit hab ich): Statt (z.b.):
function AInitialize: Integer; stdcall; external 'AUDIOW32.DLL'; //die DLL wird im OnCreate aus der Ressource exportiert schreib ich jetzt:

einmal:

zusammenfalten · markieren

Delphi-Quellcode:

procedure GetProcedureAddress(var P: Pointer; const ModuleName, ProcName: string);
var
  ModuleHandle: HMODULE;
begin
  if not Assigned(P) then
  begin
    ModuleHandle := GetModuleHandle(PChar(ModuleName));
    if ModuleHandle = 0 then
    begin
      ModuleHandle := LoadLibrary(PChar(ModuleName));
      if ModuleHandle = 0 then raise Ewin32Error.Create('Library not found: ' + ModuleName);
    end;
    P := GetProcAddress(ModuleHandle, PChar(ProcName));
    if not Assigned(P) then raise EWin32Error.Create('Function not found: ' + ModuleName + '.' + ProcName);
  end;
end;

und dann für jede Prozedur einzeln (jetzt auf's Bsp. angewandt):

{$IFDEF DYNAMIC_LINK}
var
_AInitialise: Pointer;

function FindWindowEx;
begin
GetProcedureAddress(_AInitialise, AUDIOW32.DLL, 'AInitialize');
asm
mov esp, ebp
pop ebp
jmp [_AInitialise]
end;
end;
{$ELSE}
function AInitialize: Integer; stdcall; external 'AUDIOW32.DLL' name 'AInitialise';
{$ENDIF DYNAMIC_LINK}

Muss ich noch irgendwas im Hauptprogramm dann ändern?

Was ich nicht verstehe: die Unit wird vor dem OnCreate geladen... soll heißen, wenn die Unit die DLL sucht, ist sie ja noch gar nicht da?! Oder sag ich der Unit mit dem Code: "Warte, bis die DLL extrahiert ist, dann darfst du loslegen."?

Edit: Ich hab mir jetzt mal den Source von dir nochmal genau angesehen... und muss leider sagen das ich überhaupt keinen Plan hab, wann das wo wie hinkommen soll .

C ya.

schau dir einfach mal an wie dll's dynamich eingebunden werden. Danach dürfte sich die Frage erledigt haben.
Tutorial: http://www.delphi-source.de/tutorials/dlls/

Zitat von SirThornberry:

schau dir einfach mal an wie dll's dynamich eingebunden werden. Danach dürfte sich die Frage erledigt haben.
Tutorial: http://www.delphi-source.de/tutorials/dlls/

Hi.

Ich habe mir das mal durchgelesen... sieht ganz einleuchtend aus, aber eine Frage habe ich noch:

Wie ich eine Funktion dynamisch einbinde, weiß ich nun durch das Tutorial. Wie verhält es sich aber, wenn ich, wie in dem Fall den ich hier zu bearbeiten habe, ca. 50 Prozeduren so umschreiben muss? Muss ich da für alles ein Type etc. anlegen? Das kann ja Jahre dauern .


C ya.

Zitat von HaCkAttaCk2001:

Das kann ja Jahre dauern

Wenn Du mit regulären Ausdrücken vertraut bist, dann nimmt Dir Search 'n Replace die Hälfte der Arbeit ab...
(dauert mit Sicherheit weniger als ein Jahr )

Zitat von NicoDE:

Zitat von HaCkAttaCk2001:

Das kann ja Jahre dauern

Wenn Du mit regulären Ausdrücken vertraut bist, dann nimmt Dir Search 'n Replace die Hälfte der Arbeit ab...
(dauert mit Sicherheit weniger als ein Jahr )

Das soll also heißen, dass ich für jede Prozedur ein type und den Rest anlegen muss? *seufz*

Na gut, trotzdem danke für die kompetente Hilfe @ all!


Ich melde mich in einem Jahr wieder *g*.

Edit: Habe gerade 1 1/2 Stunden benötigt, eine function in den dynamischen Code zu portieren... *uff*. Aber langsam kapier ich's .

C ya!