[IvanSCM]

на сервер не передаются параметры, что GET что POST

program NewProject3;
uses proweb;
var itemId, rc, id : integer; 
     cmdNext : command; 
     cmdQuit : command; 
     name, str : string; 

begin 
  ShowForm; 
    
  itemId := FormAddTextField('Введите текст:', '', 20, TF_ANY); 
    
  cmdNext := CreateCommand('Готово', CM_OK, 1); 
  AddCommand(cmdNext); 
    
  repeat until GetClickedCommand = cmdNext; 
    
  name := FormGetText(itemId);

	ClearForm;
	ShowForm;
	
	id:= FormAddString('Ждите посылка запроса...');
	q_property('Accept', '*/*');
q_property('Accept-Language', 'ru');
q_property('Content-Type', 'application/x-www-form-urlencoded');
  
rc:=q_request('http://talk.servehttp.com', GET, 'foo=bar&name=' + name, 'none');
if get_error='' then str:=get_data; 
if get_error='' 
      then begin
					  id:= FormAddString('Ответ: '+ str);
					 end;
		  else id:= FormAddString(' Ошибка: '+get_error);
close;

  cmdQuit := CreateCommand('Выход', CM_EXIT, 1); 
  AddCommand(cmdQuit); 
  repeat until GetClickedCommand = cmdQuit;
  
  end.