Httpcliet (post) x Httpserver (Passando parametros)

[IltonK 0]

Olá, 

alguem pode me ajudar, estou comecando agora no  ICS e não estou conseguindo enviar de com POST do httpclient e passando parametros, e recebendo no httpserver, no caso ele faz até a comunicacao normal porem não recebe os dados passados do parametros.

 

HTTPCLIENT:
procedure THttpPostForm.PostButtonClick(Sender: TObject);
begin
    HttpCli1.ServerAuth:=httpAuthDigest;

    Data := 'FirstName=' + UrlEncodeToA(Trim(FirstNameEdit.Text)) + '&' +  //PARAMETROS
                'LastName='  + UrlEncodeToA(Trim(LastNameEdit.Text))  + '&' +
               'Submit=Submit';
    HttpCli1.SendStream := TMemoryStream.Create;
    HttpCli1.SendStream.Write(Data[1], Length(Data));
    HttpCli1.SendStream.Seek(0, 0);
    HttpCli1.RcvdStream      := TMemoryStream.Create;
    HttpCli1.URL             := Trim(ActionURLEdit.Text);
    HttpCli1.ContentTypePost := 'application/x-www-form-urlencoded';

    StartTime := 0;
    HttpCli1.PostAsync;
end;

 

NO SERVER:
procedure TSslWebServForm.SslHttpServer1PostDocument(
    Sender    : TObject;            { HTTP server component                 }
    Client    : TObject;            { Client connection issuing command     }
    var Flags : THttpGetFlag);      { Tells what HTTP server has to do next }
var
    ClientCnx : TMyHttpConnection;
begin
    ClientCnx := Client as TMyHttpConnection;
    displaymemo.Lines.Add('POST DOCUMENT: ' + CLIENTCNX.Params);  //parametros sempre vem vazio
end.
 

o que estou fazendo de errado ?


 

[FPiette 385]

Please translate your post to English (Use the Edit button).

[Olli73 5]

Is "data" variable of type string? Then try with Ansistring please,

[IltonK 0]

Sorry for sending in Portuguese.

Yes, data = Ansistring

I'm even using the examples (demo) that come in the package for testing

OverbyteIcsHttpPost = using to post

OverbyteIcsSslWebServ or OverbyteIcsBasicWebServer
I was unable to make it read the parameters in either of the two server examples.

It communicates but does not receive the parameters.

The only way it can receive them would be to pass them directly to the URL, for example: http://192.168.1.10/teste?codigo=10
In this case, it identifies the parameters

But when I send them via HttpCli1.SendStream, I get no response, it arrives empty.

[Olli73 5]

You try to read "parameters", but send data in body!? Then you must read body of request,

[IltonK 0]

I'm trying to read the request body but it returns an error:
var

    ClientCnx : TMyHttpConnection;
    ContentStream: TStringStream;
    ContentString: string;
begin
    ClientCnx := Client as TMyHttpConnection;
    ContentStream := TStringStream.Create;
    ContentStream.LoadFromStream(ClientCnx.DocStream);
    ContentString := ContentStream.DataString;
    ShowMessage('Conteúdo recebido: ' + ContentString);

[Olli73 5]

Which error message?

 

At which place (event) are you?

[IltonK 0]

I'm using it at: SslHttpServer1PostDocument error:
17:17:20:908 Handle Background Exception, source: TCustomWSocket.ASyncReceive - Access violation at address 00F194DF in module 'OverbyteIcsSslWebServ.exe' (offset B94DF). Read of address 00000000

[Olli73 5]

try OnPostedData event

 

[IltonK 0]

I'm not getting it... but I'll keep trying, since the ICS is
for now, thank you very much, if there's any news, I'll post it here.
thank you very much

[FPiette 385]

12 hours ago, IltonK said:

I'm not getting it...

Have a look at the demo program OverbyteIcsSslWebServ.dproj!

In OverbyuteIcsSslWebServ1.pas, look at method SslHttpServer1PostDocument(). If the posted URL is the one you expect (In the demo, this URL is '/cgi-bin/cgifrm1.exe' and no, there NO cgifrm1.exe program, this is just a kind of virtual program), you have to allocate space for the posted data and return with Flags set to hgAcceptData. Then since you accept data, you'll get one or more PostedData events (Data comes in chunks). In the demo, look at SslHttpServer1PostedData().

 

In my opinion, this demo is exactly what you want to do. Study it carefully.

 

BTW: If you don't do what I said (Edit you message to translate it in English, even in bad English. Use Google translate if needed), then you delay the answer. Now, study the sample I pointed to you, revise your code and if you still have an issue, post a NEW question, in English.

Edited November 5 by FPiette

[Angus Robertson 577]

Testing your own client against your own server makes debugging harder. 

 

You should test your client against the ICS multi web server sample, specifically post to https://localhost/postinfo.html which logs all URL or POST parameters passed to it, and returns them as a web page, so you know exactly what the client is sending.  The server code is in OverbyteIcsSslMultiWebUploads.pas and illustrates how to untangle parameters. 

 

For the client, you should be using the TSslHttpRest component which requires less code, look at the doHttpSimpleUploadClick function in the snippets sample, you build your parameters and then simply POST them.

 

SslHttpRest.RestParams.PContent := PContUrlEncoded;
SslHttpRest.RestParams.AddItem('FileTitle', mytitle);

StatCode := SslHttpRest.RestRequest(httpPOST, myurl, False, '');

 

You can test all this against your server using the OverbyteIcsHttpRestTst sample. 

 

Angus