Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

Как передавать из программы параметры методами GET/POST?   Найти похожие ветки 

 
wsxedc ©   (2006-06-03 10:14) [0]

Подскажите плз, как передавать из программы параметры методами GET/POST. Т.е. чтоб ввести адрес сайта, параметры и способ передачи(GET/POST), а прога их передала?
И чтоб при этом браузер не запускался?
ЗЫ только не через фастнет...


 
Tsmar   (2006-06-03 16:33) [1]

ЗЫ Тогда через Indy.


 
wsxedc ©   (2006-06-04 11:46) [2]

а можно конкретный пример? Или хоть какой компонет использовать то?


 
Dmitrij_K   (2006-06-04 12:16) [3]

Компонент Indy  IdHTTP http://www.indyproject.org там же демка есть


 
Dmitrij_K   (2006-06-04 12:16) [4]

Компонент Indy  IdHTTP http://www.indyproject.org там же демка есть


 
serko ©   (2006-06-04 13:05) [5]

а как с помощью WebBrowser выполнить метод GET?

Post я делаю так:


    stPostData:="shop=stat";
    vHeaders:= "Content-Type:application/x-www-form-urlencoded"+ #10#13#0;
    vPostData:= VararrayCreate([0, Length(stPostData)], varByte);
    for iLoop := 0 to Length(stPostData)- 1 do
    begin
         vPostData[iLoop]:= Ord(stPostData[iLoop+1]);
     end;
    vPostData[Length(stPostData)]:= 0;
    TVarData(vPostData).vType:= varArray;
    vWebAddr:="";
    vFlags:=navNoWriteToCache;
    vFrame:=EmptyParam;
    try
       WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders);
    except
    end;


 
Tsmar   (2006-06-05 09:15) [6]

функция отправляет по адресу URL, POST данные CMD и Query,
думаю для примера вполне подойдет :)

function GetFromURL(URL: string; CMD: string =""; Query : string=""):string;
var str, res   : TStringList;
   ms         : TMemoryStream;
begin
 str:=TStringList.Create;
 res:=TStringList.Create;
 ms := TMemoryStream.Create;
 //Добавляем POST данные
 str.Add("cmd="+CMD);
 //Если это SQL запрос
 if (CMD="sql") and (Query<>"") then
   begin
     str.Add("query="+Query);
     str.Add("query_t="+LowerCase(Parse(" ",Query,1)));
   end;
 try
   MainForm.IdHTTP1.Post(URL, str, ms);
   ms.Position := 0;
   res.LoadFromStream(ms);
   Result:=res.Text;
 finally
   ms.Free; str.Free; res.Free;
 end;
end;


 
Tsmar   (2006-06-05 09:20) [7]

Забыл сказать, что GET данные можно передать прямо в URL.
Например: http://www.yandex.ru/yandsearch?rpt=rad&text=что%20ищем
Не забудь, что в GET запросе значения передаваемых текстовых переменных должны быть перекодированы в urlcode


 
serko ©   (2006-06-05 20:08) [8]

ну а как Get данные передать ,так как я передаю Post?

Я в твой код не вникал, может они работает, но мне нужно моим только передать GET.

Как перекодировать в urlcode?



Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
15-1159418720
Тульский
2006-09-28 08:45
2006.10.29
Понятие NULL


3-1156927993
vlad54
2006-08-30 12:53
2006.10.29
Кириллица в таблицах в текстовых файлах


3-1157004192
MrKiLLER
2006-08-31 10:03
2006.10.29
Помогите разобрать ТЗ на программу SQLNavigator


15-1159963430
dreamse
2006-10-04 16:03
2006.10.29
Подскажите компоненту


2-1161021492
serko
2006-10-16 21:58
2006.10.29
NMHTTP