Link to home
Start Free TrialLog in
Avatar of crystyan
crystyan

asked on

Posting on rawsugar - ciuly

I`m trying to do an automatic process for this http://www.rawsugar.com/register/step1. There is an image there that I have to load in my app. I`ve done that. it works ok, but when I`m posting data it doesn`t work. and I`m not sure why :(((
if u can check my code and make another plsssssssss ?

var
 viewstate: String;
 count,i,poz:integer;
 cookies:tstringlist;
 Params: TStrings;
 image_url: String;
 temp: String;
 code: String;
 strStream: String;
 memStream: TMemoryStream;
 Image1: TImage;
 jpegimg: TJPEGImage;
 id: String;
 sunview: String;
 L: TStringList;

 procedure setcookies;
 var j:integer;
 begin
   count:=IdCookieManager1.CookieCollection.count;
   for j:=1 to count do
     IdHTTP1.Request.RawHeaders.Add('Cookie'+IdHTTP1.Request.RawHeaders.NameValueSeparator+IdCookieManager1.CookieCollection.Items[j-1].CookieText);
 end;

begin
  L := TStringList.Create;
  Params := TStringList.Create;
  Params.Clear;
  cookies:=tstringlist.Create;
  try

    idhttp1.AllowCookies:=true;
    idhttp1.HandleRedirects:=true;

    html:=idhttp1.Get('http://www.rawsugar.com/');// first get; get first cookie(s)
    count:=IdCookieManager1.CookieCollection.count;
    for i:=1 to count do
      cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);

//    HTML := IdHTTP1.Get('http://www.rawsugar.com/actions/logout');

    HTML := IdHTTP1.Get('http://www.rawsugar.com/register/step1');

    temp := HTML;
    i := pos('id="captchaId" value="', temp);
    temp := Copy(temp, i + 22, Length(temp));
    i := pos('"', temp);
    id := Copy(temp, 1, i - 1);
    image_url := 'http://www.rawsugar.com/captcha?c=' + id;
    temp := HTML;
    i := pos('name="com.sun.faces.VIEW" value="', temp);
    temp := Copy(temp, i + 33, Length(temp));
    i := pos('"', temp);
    sunview := Copy(temp, 1, i - 1);

    strStream := IdHTTP1.Get(image_url);
    memStream := TMemoryStream.Create;
    Image1 := TImage.Create(self);

   jpegimg   := TJPEGImage.Create;
   try
      memStream.Write(strStream[1], Length(strStream));
      memStream.Position := 0;
      jpegimg.LoadFromStream(memStream);
      Image1.Picture.Assign(jpegimg);
      Image1.Picture.SaveToFile(IMAGE2_PATH);
    finally
      memStream.Free;
      jpegimg.Free;
    end;
//    UrlDownloadToFile(nil, PChar(image_url), PChar(IMAGE_PATH), 0, nil);
    SecurityForm.file_ext := '.jpg';
    SecurityForm.ShowModal;
    SecurityForm.file_ext := '.png';
    code := SecurityForm.SecurityCode;

    Params.Values['frmRegister:username'] := Account.LoginName;//[put your user name here];
    Params.Values['frmRegister:passcode'] := '';
    Params.Values['frmRegister:fullName'] := Account.FirstName + ' ' + Account.SecondName;
    Params.Values['frmRegister:email'] := Account.Email;
    Params.Values['frmRegister:allowContactByEmail'] := 'on';
    Params.Values['frmRegister:password'] := Account.Password;
    Params.Values['frmRegister:passwordRetype'] := Account.Password;
    Params.Values['frmRegister:captchaUserInput'] := code;
    Params.Values['captchaId'] := id;
    Params.Values['frmRegister:joinIncentiveProgram'] := 'on';
    Params.Values['frmRegister:agreement'] := 'on';
    Params.Values['com.sun.faces.VIEW'] := sunview;
    Params.Values['frmRegister'] := 'frmRegister';
    Params.Values['frmRegister:_idcl'] := '';

  html := '';
    IdHTTP1.HandleRedirects:=false;// now this made the buzz, because the cookies were not set when following the redirect
    try
      HTML := IdHTTP1.Post('http://www.rawsugar.com/pages/register.faces', Params);// now do the log in
    except on e: EIdHTTPProtocolException do
    begin
      if e.ReplyErrorCode<>302 then
         raise e;
        // now this is the redirect
        count:=IdCookieManager1.CookieCollection.count;
        for i:=1 to count do
          cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);

        setcookies;
        html:=idhttp1.Get(IdHTTP1.Response.Location);// follow redirect
        Showmessage(IdHTTP1.Response.Location);
      end;
    end;
   finally
   end;
  Params.Free;
  cookies.free;
Avatar of 2266180
2266180
Flag of United States of America image

well, I see that you are not looking at the form code. you need to view source in your browser and then look at what the form has and use that data. in your case, the form is posting to
method="post" action="/pages/register.faces;jsessionid=2F48D892DA9129E48A6356B0E74578AA"
that is not visible in your case.
Also, you should install a tcp or at least a http sniffer to see the trafic with your browser and then make sure your application does the same trafic. (this is generally valid)

plus that I am not sure how moral/correct/etc is to make an auto submitter for registration forms. this is regarded in general as not accepted. why not simply use TWebBrowser or TEmmbedWB for registering?
Avatar of crystyan
crystyan

ASKER

hi ciuly,

thanks for advicing me :-)
it still doesn`t work :((( that jsessionid doesn`t appear in the html code (only the first time!!) not sure how they did that, but I got it from the cookies. still when I`m posting to that address it doesn`t work :((. the prob I think is that I don`t post it to the right url as I get the same html as result each time :((

thanks
lol ... in fact ... I`m not geting the right cookies ... not sure how`s that happening but in my list of cookies there are some missing ... like search.pref and ident . could u look on my code above and see if I`ve missed something ?
THANKS !
I`m not getting all the cookies :(((((((((((
at least when posting from the browser the sniffer shows me more cookies sent there.

and it posts the data at http://www.rawsugar.com/pages/register.faces
ASKER CERTIFIED SOLUTION
Avatar of 2266180
2266180
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
this is for my personal use, but I don`t wanna cause u any problems. as I may to give it to some friends.

Thanks anyway if u can`t help me. you`re a TERRIFIC programmer ;)
my best bet is that you see the traffic in the sniffer for all pages that you get and that you send fomr the browser and see whcih one what cookies set.

then make sure your appl;ication does the same.

then check the form source and see if there is anything you need to parse out and use (like viewstate, that session id thing, and maybe who knows what else). also make sure you send out all needed inputs.

from there on, it should work just fine.

that's the best I can give you beside the thing to use twebbrowser for the registration page.
I don`t wanna user the twebbrowser. I still can`t get the right cookies from step1 page but anyway...I may quit the ideea :-) much more simple lol

THANKS A LOT !
no problem. sorry I cannot help you. maybe next time :)