Frage zu Indy HTTP server

matze · Verfasst: Fr 31.10.03 11:47

hallo !!

ich habe eine frage:
Hier mal ein ausschnitt aus dem OnCommandGet des HTTP Servers:

Delphi-Quelltext

1:
2:
3:
4:
5:

if Arequestinfo.Params.values ['action'] = 'msg' then begin
   outmessage := Arequestinfo.Params.values ['msg'];
   aresponseinfo.ContentText := 'Message Out';
   athread.synchronize(messageout);
   end;

Hier noch die andere Funktion:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.messageout;
begin
   application.MessageBox (PChaR(outmessage),'',MB_SYSTEMMODAL);
end;

Mein Problem: Wenn jemand den HTTP Server anspricht (ipdesservers/?action=msg&msg=hallo), sodass er die Message ausgibt die in MSG eingegeben wird, dann wird der Rückgabewert (message out) erst ausgegeben wenn der User die Meldung beantwortet hat. wie muss ich den code umschreiben, dass zuerst die meldung an den client zurückgegeben wird und dann die meldung angezeigt wird ?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

matze · Verfasst: Fr 31.10.03 17:31

ok problem selber gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

if Arequestinfo.Params.values ['action'] = 'msg' then begin
   outmessage := Arequestinfo.Params.values ['msg'];
   aresponseinfo.ContentText := 'Message Out';
   Aresponseinfo.WriteContent;
   AThread.Connection.Disconnect;
   athread.synchronize(messageout);
   end;

da stand ich ja echt mit beiden beinen auf der leitung !

_________________
In the beginning was the word.
And the word was content-type: text/plain.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme