Подскажыте как сделать чтоб содержимое файла txt отправлялось по HTTP POST
Привет Всем !! У меня проблема с отправкой HTTP POST.
Как сделать чтоб содержымое файла txt отправлялось на сервак при помощи idhttp ???
Подскажите плис очень надо вот моя ася 477080587
var rev,str:string;
ss: TStringStream;
s :ANSIstring;
f:textfile;
begin
assignfile(f,getcurrentdir+'/txtfile.txt);
reset(f);
readln(f,str);
closefile(f);
ss := TStringStream.Create('');
s :=str;
ss.WriteString('txt='+s);
http1:=TIdHTTP.Create(nil);
rev:=http1.Post('http://vkontakte.ru/wall.php', ss);
http1.Free;