HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

помогите пожалуйста с Post
  #1  
Старый 23.03.2008, 23:19
Student :)
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
С нами: 10132786

Репутация: 9
По умолчанию помогите пожалуйста с Post

привожу код
httpcli1 это с компонентов ICS

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
sData : string;
Datax : TStringStream;
begin
Datax := TStringStream.Create('');
sData :='a=55';
httpcli1.Proxy:='127.0.0.1' ;
httpcli1.ProxyPort:='81';
HttpCli1.SendStream := TMemoryStream.Create;
HttpCli1.SendStream.Write(sData[1], Length(sData));
HttpCli1.SendStream.Seek(0, 0);
httpcli1.RcvdStream := Datax;
HttpCli1.URL :='http://ima.com/index.php';
HttpCli1.Post;
dounl:=Datax.DataString;
HttpCli1.RcvdStream.Free;
HttpCli1.RcvdStream := nil;
HttpCli1.Free;
ShowMessage(dounl);
end;
Процедура выполняеться один раз , когда повторно нажимаю на кнопку программа пишет об ошибке и вылетает
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста крякнуть эту прогу!!! Riga Болталка 4 28.01.2008 19:19
Windows Vista! Помогите пожалуйста! n0lik Windows 22 18.01.2006 08:19



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.