Главная страница
    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.46 MB
Время: 0.031 c
2-1160998430
Phoroon~
2006-10-16 15:33
2006.10.29
Количество иконок


15-1159680143
Александр_
2006-10-01 09:22
2006.10.29
Перевести с бумаги в AutoCAD


15-1159974010
Сатир
2006-10-04 19:00
2006.10.29
Спрашивали на собеседовании...


2-1160572066
Romas81
2006-10-11 17:07
2006.10.29
как в Delphi запустить другое приложение


2-1160762403
Sanya_BBB
2006-10-13 22:00
2006.10.29
Как сделать чтоб OpenDialog выбирал не файл а папку?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский