On Wed, 29 Apr 2015, leledumbo wrote:
I need to create some kind of bot for automatic testing against our web app.
The following app target real online web application:
{$mode objfpc}{$H+}
uses
{$ifdef unix}
cthreads,
{$endif}
Classes,SysUtils,fphttpclient;
procedure Log(http: TFPHTTPClient);
begin
WriteLn('BEGIN
**********************************************************');
WriteLn(http.RequestHeaders.Text);
WriteLn(http.ResponseStatusCode);
WriteLn(http.ResponseHeaders.Text);
WriteLn('END **********************************************************');
end;
var
http: TFPHTTPClient;
formdata: TStrings;
begin
http := TFPHTTPClient.Create(nil);
try
// initial GET request to initialize cookies
http.Get('http://lelelagi.mysirclo.com');
Log(http);
// POST: add item to cart
formdata := TStringList.Create;
formdata.Values['cmd'] := 'add';
formdata.Values['item_id'] := 'montauk-tote';
formdata.Values['member_email'] := '[email protected] ';
http.FormPost('http://lelelagi.mysirclo.com/cart',formdata); // #1
Log(http);
// POST: set country, city and shipping
formdata.Clear;
formdata.Values['cmd'] := 'shipping_country';
formdata.Values['shipping_value'] := 'ID';
http.FormPost('http://lelelagi.mysirclo.com/cart',formdata); // #2
Log(http);
formdata.Clear;
formdata.Values['cmd'] := 'shipping_city';
formdata.Values['shipping_value'] := 'Kota Depok - Depok';
http.FormPost('http://lelelagi.mysirclo.com/cart',formdata);
Log(http);
formdata.Clear;
formdata.Values['cmd'] := 'shipping';
formdata.Values['shipping_value'] := 'JNE REG';
http.FormPost('http://lelelagi.mysirclo.com/cart',formdata);
Log(http);
// POST: place order
formdata.Clear;
formdata.Values['first_name'] := 'Test Name';
formdata.Values['phone'] := '088712342345';
formdata.Values['address_line1'] := 'Certain Street';
formdata.Values['country'] := 'ID';
formdata.Values['state'] := 'DKI Jakarta';
formdata.Values['city'] := 'DKI Jakarta - Jakarta';
formdata.Values['postal_code'] := '12424';
formdata.Values['email'] := '[email protected]';
formdata.Values['delivery_first_name'] := 'Test Name';
formdata.Values['delivery_phone'] := '088712342345';
formdata.Values['delivery_address_line1'] := 'Certain Street';
formdata.Values['delivery_country'] := 'ID';
formdata.Values['delivery_state'] := 'DKI Jakarta';
formdata.Values['delivery_city'] := 'DKI Jakarta - Jakarta';
formdata.Values['delivery_postal_code'] := '12424';
formdata.Values['delivery_email'] := '[email protected]';
formdata.Values['shipping_value'] := 'JNE REG';
formdata.Values['payment_method'] := 'bank-transfer';
formdata.Values['message'] := '';
formdata.Values['agreement'] := 'on';
http.FormPost('http://lelelagi.mysirclo.com/cart/place_order/guest',formdata);
Log(http);
finally
http.Free;
end;
end.
The app always dies with "EHTTPClient: Error reading data from socket" after
the first FormPost, any of them (e.g. if you comment #1, it will die after
#2). Did I miss something? Is this the correct way to make such a
simulation?
Yes it is.
If the problem disappears after you do a Free and Create of the http class,
then it means something is left hanging after the call.
In that case I would need to check what is happening.
If the problem persists, then it means there is some mechanism on the server
that
is causing this.
Michael.
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
