Dll zur Laufzeit verändern?

[StanY]

Also: Ich 'arbeite' grade an einem kleinem IRC Bot. Soweit läuft alles auch ganz gut, mal abgesehen, dass er recht groß ist, da ich noch nicht non-vcl schreiben kann. Aber das ist erstmal egal.

Relevant ist, dass ich ihn nun DLL basiert erstellt habe. Der Bot läuft und greift bei jeder Msg, die ankommt, auf die DLL zu und überprüfr ob und wenn ja, was zu tun ist.

Nun hatte ich mir das eigentlich so vorgestellt, dass ich die DLL während der Laufzeit des Bots einfach austauschen kann, ohne, dass der Bot neu zum IRC connecten muss, was ja vorher noch der Fall war.
Gedacht, getan, nur leider kann ich die DLL nicht austauschen, 'da sie von einem anderen Programm benutzt wird'.

Wie kann ich das, was ich vor habe, realisieren?

Vielen Dank schonmal im Vorraus.

[dizzy]

Das Stichwort hier wäre "dynamisches Laden". So kannst du sie auch wieder, im Betrieb, entladen, austauschen und wieder anpappen. Dazu habe ich mal ein Tut auf www.delphi-treff.de oder auf www.delphi-source.de gesehen. (Einfach mal suchen ;))

Gruss,
Fabian

[StanY]

Mh danke. Habe mir das Tutorial dazu durchgelesen (schon gestern) aber dachte es wäre auch einfacher möglich^^. Dann mache ich mich mal daran, das nochmal zu tun \:.

Danke.

[fiasko]

Hallo,

Solange die DLL geöffnet ist, kannst du sie nicht ersetzen (geschweige denn würde der neue Code ausgeführt werden können).

Mach in deinem Bot eine Schnittstelle über die man sagen kann "entlade-die-dll", dann wird sie ersetzt und dann kommt ein neues Kommando "lade-die-dll". Die schnittstelle könnte einen named pipe sein oder er hört auf einem lokalen UDP-Socket - das ganze wird dann einfach mit nem Hilfsprogramm angesteuert.

[Luckie]

Warum ist alles, was man auf Anhieb nicht versteht gleich schwer und es wird nach einer "einfachheren" Möglichkeit gesucht? :gruebel: Da mus sman sich eben mal damit etwas auseinadersetzten.

[StanY]

Ich habe die DLL jetzt dynamisch eingebunden, aber sobald die Prozedur in der DLL ausgeführt wird, bekomme ich ein AccessViolation-Error

Die Prozedur LoadDll(DllName: String); wird inFrom1.Create aufgerufen.

Delphi-Quellcode:

procedure TfrmMain.LoadDll(DllName: String);
var
  Handle: THandle;
begin
  //Dll wird nun eingebunden
  Handle := LoadLibrary(PChar(DllName));
  if (Handle <> 0) then begin
    GetCommand := GetProcAddress(Handle,'GetCommand');
  end;
  FreeLibrary(Handle);
end;

GetCommand wird global deklariert und zwar als TGetCommand, welches so aussieht:

Delphi-Quellcode:

TGetCommand = procedure(CmdStr: String; SockId: Integer); stdcall;

Sobald ich GetCommand(); aufrufe, gibt es den Fehler. Folglich wird wohl etwas bei LoadDll nicht stimmen, aber was?

Btw.:
Die Dll sieht so aus:

Delphi-Quellcode:

library commdll;

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

procedure GetCommand();
begin
  ShowMessage('yes');
end;

exports
  GetCommand;

begin
end.

[Dax]

So müsste es gehen:

Delphi-Quellcode:

library commdll;

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

procedure GetCommand(CmdStr: String; SockId: Integer); stdcall;
begin
  ShowMessage('yes');
end;

exports
  GetCommand;

begin
end.

[StanY]

Leider immer noch nicht \:.

[Dax]

Da fällt mir grade ein: Strings dürfen einer DLL nicht direkt übergeben werden, sondern nur als PChar, oder durch einbindung von ShareMem. Versuch' mal eines von beiden...

[StanY]

Ich habe es nun so gemacht, dass gar nichts übergeben oder verlangt wird. Selber Fehler beim Aufrufen der Dll-Prozedur. \: