Hmmm.... ich hab das nun noch ein wenig modifiziert...
Neie
DLL Funktion
Delphi-Quellcode:
function hwfunc(ReqInfo:TIdHTTPRequestInfo;ResInfo:TIdHTTPResponseInfo):TMemoryStream;stdcall;
var
vfile:TStringlist;
begin
result := TMemoryStream.Create;
vfile := tstringlist.Create;
vfile.Add('Test hahah _:D');
vfile.SaveToStream(result);
vfile.Free;
result.Position := 0;
ResInfo.ContentStream := result;
ResInfo.WriteContent;
result.Free;
end;
Das es ein paar unschönheiten hat weiss ich.... is erst experimentell
Der neue aufruf
dynfunc(ARequestInfo,AResponseInfo);
Auch dies funktioniert wieder jedoch
meldet er ab und zu Ungültige Zeigeroperation
Jedoch bricht das programm nicht ab sondern die Meldung wird
zum text Test haha _
Hinzugefügt...