DLL als Modul.. Ungültige Zeigeroperation etc... Bitte Hilfe

[hedie]

Hallo

Ich binde in meinem Programm eine DLL Dynamisch mit folgendem Code ein:

Variablen:

Delphi-Quellcode:

dynfunc:procedure (param:TIdHTTPRequestInfo;param2:TIdHTTPResponseInfo);stdcall;
dynproc:procedure ;stdcall;

DLL - Laden

Delphi-Quellcode:

Function Load_DLL (const dllfilename:string) :boolean;
   begin
     dllhandle := LoadLibrary(pchar(dllfilename));
    if (dllhandle <> 0) then
       dynproc := GetProcAddress(dllhandle,pchar('initialize'));
       dynproc;
       dynfunc := GetProcAddress(dllhandle,pchar('hwfunc'));
       result := true;
end;

DLL Proceduren Initialize und hwfunc

Delphi-Quellcode:

procedure initialize();stdcall;
begin
SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 62);
writeln('');
writeln('               This Module is for *******************************              ');
writeln('               Now you can use the **** tag: hw for a simple test              ');
writeln('');
end;

procedure hwfunc(ReqInfo:TIdHTTPRequestInfo;ResInfo:TIdHTTPResponseInfo);stdcall;
var
vfile:TStringlist;
vfile2:TMemoryStream;
begin
vfile := tstringlist.Create;
vfile2 := tmemorystream.Create;
vfile.Add('Test hahah _:D');
vfile.SaveToStream(vfile2);
vfile.Free;
vfile2.Position := 0;
ResInfo.ContentStream := vfile2;
ResInfo.WriteContent;
vfile2.Free;
end;

Der aufruf der Funktion nach der Initialisierung dur Load_DLL sieht so aus:

Delphi-Quellcode:

procedure Thd.main_d_getcommand(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
dynfunc(ARequestInfo,AResponseInfo);
end;

Ziel ist es, den HTTP Server im hauptprogramm dazu zu bewegen einen Stream welcher
in der DLL Bearbeitet und erzeugt wird auszugeben.

Dazu wollte ich die Variablen aus der EXE der DLL Übergeben und die Variable in
der DLL Bearbeiten, in der hoffnung das die Variable der EXE bearbeitet wird.

Die Hoffnung hat sich bestätigt, der Server hat auch was ausgegeben
aber leider wird in 10 aufrufen ca 5 mal der text "Ungültige Zeigeroperation" angehängt

Ich hoffe ihr könnt mir helfen und mir klar machen welche folgen mein unsauberes Programmieren
haben kann weil ich selbst weis das das nicht sehr ordentlicher programmier stil ist

Achja noch etwas... Weiss jemand wie ich die DLL Aufbauen müsste (Welche Variablen etc..) das man auch
eine aus zb Visual Basic erstellen kann, weil VB hat ja keine Indys und somit kenn VB auch die
Variable TIdHTTPRequestInfo nicht


Danke schonmal für eure antworten