Hallo,
folgendes Problem :
Ich bin dabei ne
DLL für ein Programm zu schreiben ( FS2004 )
In der
DLL übermittle ich die aktuelle Position des Flugzeuges
an ein php Script mit folgender Function :
Delphi-Quellcode:
function TF_main.SendPostData(Ahttp: TIdHTTP;
const AtoURL:
String;
const aParams: TStrings):
String;
Var
lStream: TMemoryStream;
//HTML-Result des PHP-Scripts
lParams: TStringStream;
I: Integer;
begin
Result:='
';
if not Assigned(aHttp)
then
exit;
lStream := TMemoryStream.create;
lParams := TStringStream.create('
');
try
AHTTP.Request.ContentType := '
application/x-www-form-urlencoded';
for I:=0
to aParams.Count-1
do
lParams.WriteString(aParams[I] + '
&');
try
AHTTP.Post(AtoURL, lParams, lStream);
except
on E:
Exception do
begin
AHTTP.Disconnect;
Result := '
';
exit;
end;
end;
SetLength(Result,lStream.Size);
lStream.Position:=0;
lStream.ReadBuffer(Result[1],lStream.Size);
finally
lParams.Free;
lStream.Free;
end;
end;
Das problem ist jetzt das jedesmal wenn die
DLL daten überdiese Function an
das Script sendet, dann Stockt der FlugSimulator und das ist nicht wirklich
schön.
Hat jemand eine Ahnung wie man das anders machen könnte oder
das Problem beheben könnte ?
( Hab die neusten
Indy )
Dank Euch !
Matthias