|
|
 | |  |
|
Отправка файла на сайт
процедура, отправляющая файл C:\test.txt:
source:
procedure TForm1.Button1Click(Sender: TObject);
var
F : TIdMultiPartFormDataStream;
begin
IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5';
F := TIdMultiPartFormDataStream.Create;
try
F.AddFile('file', 'C:\test.txt', 'application/octet-stream');
try
IdHTTP1.Post('http://zalil.ru/upload/', F);
except on E : Exception do
if IdHTTP1.Response.ResponseCode = 302 then
Edit1.Text := 'http://zalil.ru/' + StringReplace(IdHTTP1.Response.Location,'/upload/','',[])
else
Edit1.Text := E.Message;
end;
finally
F.Free;
end;
end;
в uses допиши:
source:
IdMultipartFormData
кинь на форму idHTTP и edit, куда будет выводится ссылка на скачивание.
|
| Категория: DELPHI | Добавил: SeM (30.04.2011)
|
| Просмотров: 590
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
