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
![Very Happy](images/smilies/icon_biggrin.gif)
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