Здравейте всички! Имам следната задача: фирма, която има сайт, в който отделните фирмени представители се логват и попълват форми за свършена работа. Как мога да попълвам автоматично тези форми от програма на Делфи? Знам, че е възможно, но не съм наясно как. Какви са компонентите, които мога да ползвам? Трябват ми няколко прости насоки и най-вече къде мога да прочета повечко по този проблем. Не ми се е случвало досега да пиша нещо от този род и ще съм благодарен на всички, които помогнат.

Поздрави!

Препоръчвам ти да се запознаеш с ХТТП протокола и с методите за обмен на данни Get и Post

Изпращам ти една моя процедурка за генериране на POST заявка към WEB сървър - повечето параметри се задават от различни контроли сложени във формата на делфи.
Има и един компонент WebBrowser1 (тип tWebBrowser), накрая се изпълнява методът му Navigate2

{}procedure TForm1.Button_URL_POSTClick(Sender: TObject);

            {}function HTTPTran(St : String) : String;

                var i : Integer;

                begin

                  Result:='';

                  for i:=1 to length(St) do begin

                    if St in ['a'..'z','A'..'Z','0','1'..'9'] then begin

                      Result:=Result+St

                    end else begin

                      if St=' ' then begin

                        Result:=Result+'+'

                      end else begin

                        Result:=Result+'%'+IntToHex(Byte(St),2);

                      end;

                    end;

                  end;

                end;

    var

      vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;

      iLoop: Integer;

      stPostData: string;

    begin



      {And the other stuff.}

      vWebAddr   := ComboBox_URL.Text;

      stPostData := ComboBox_POST.Text;



      if Length(stPostData)> 0 then begin

        {Require this header information if there is stPostData.}

        vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;

        {Set the variant type for the vPostData.}

        vPostData:= VarArrayCreate([0, Length(stPostData)], varByte);

        for iLoop := 0 to Length(stPostData)- 1 do begin // Iterate

          vPostData[iLoop]:= Ord(stPostData[iLoop+ 1]);

        end; // for

        {Final terminating Character.}

        vPostData[Length(stPostData)]:= 0;

        {Set the type of Variant, cast}

        TVarData(vPostData).vType:= varArray;

      end;



      {Make the call Rex.}

      WebBrowser1.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders);



    end; {End of Navigate procedure.}

Съдържаниет е скрито
Влезте за да го видите

ПП
не знам защо излиза през ред.
И в ComboBox_POST има следните редове:
ft_UserName=v&ft_Password=1
Par1=123456&Par2=987654
(при теб ще са други, в зависимост от сайта, който ще манипулираш)
това са Post parametrite

Редактирано от NikB на 15.10.06 17:39.

Изясни ми се картинката... WebBorwser контролата си бачка перфектно! Чудя се обаче има ли компонент, а не контрола, понеже няма нужда да визуализирам страницата, която се попълва? User-a така и така вижда данните, които ще се пращат от самото Delphi приложение. Засега мисля WebBrowser-a да го пъхна в една форма, която е visible := false.

От мен нещо нестандартно, но достатъчно просто, ефективно и надеждно

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Пробвал ли си го?
Как стои въпроса със сигурността?
Я разкажи малко по-подробно за опита си, моля

Съдържаниет е скрито
Влезте за да го видите

>> Как мога да попълвам автоматично тези форми от програма на Делфи?

>> Hamachi ... remote desktop

Аз ползвам Hamachi да играя с 1 приятел Starcraft, но трябваше да спра ZoneAlarm.
>> Hamachi is a zero-configuration virtual private networking (VPN) application.

Но какво общо има VPN, remote desktop и http post ???

Не, става дума за достъп до MySQL сървъра през VPN, без хостване на платен хост (е, не съм много точен), без WEB сървър.
T.e. да сложиш един MySQL сървър на компютър в офиса, да му осигуриш достъп до мрежата, да му сложиш Хамачи и целия свят (или поне оторизираните:) да може да позлва MySQL сървъра ти директно, без WEB сървър.
Това може да стане, ако се осигури достъп до порта на MySQL (3306, обикновенно).

Хамачито емулира нещо като реално ИП. Като го инсталираш(създава се лан карта/дивайс в конекшъна) можеш да създадеш неограничен брой групи от компютри на които е инсталирано. Връзката е криптирана(128....., мисля че беше). От хора по компетентни в сигурноста съм чувал, че е изключително сигурна. След като си организираш групите, всичко си върви по TCP/IP протокола. Все едно че си в хоум нетуърк- име_накомпа или ИП(ИП-то от хамачито):Local Disk:Folder/Folder/dura-bura.fdb

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Ами като те мързи да си я настроиш, по лесно е да я спреш. Аз ползвам PC-Cilin 2006, има си фаеруол, май доста по-сигурен и настроиваем, та даже и уеб филтър си има.

Всички гениални неща са измислени от хора, които не са знаели, че са невъзможни.

Съдържаниет е скрито
Влезте за да го видите