1.procedure TForm1.Button1Click(Sender: TObject);
const
Pic = 'http://www.codenet.ru/images/clame/tekama-2008-03-1-728x90.gif';
SPic = 'c:\savedpic.gif';
var
HTTP: TIdHTTP;
Stream: TStream;
begin
Stream := TMemoryStream.Create;
HTTP := TIdHTTP.Create(nil);
try
HTTP.Get(Pic, Stream);
Stream.Position := 0;
TMemoryStream(Stream).SaveToFile(SPic);
finally
Stream.Free;
HTTP.Free;
end;
end;
end.
HTTP.Get- 2 вопроса срочно!
Здравствуйте уважаемые, вот у меня 2 срочных вопроса:
П.с чем проще и лучше обясните тем меньше у меня будет вопросов!
Значит дана процедура скачивания файла, как сделать чтоб показывалось сообщение что файла данного нету... а то там вылетает ошибка 404...
По данной процедуре описаной выше можно ли каким либо способом создавать папки или файлы?
тобиш файла такова нету но при нажатии на кнопку он там появляется, какбы закачивается... Pic = 'http://www.codenet.ru/images/clame/tekama-2008-03-1-728x90.gif';
если это не возможно с такой процедурой опишите любую другую желательно максимально простую... зарание спасибо всем за удиление внимания...
П.с чем проще и лучше обясните тем меньше у меня будет вопросов!
Значит дана процедура скачивания файла, как сделать чтоб показывалось сообщение что файла данного нету... а то там вылетает ошибка 404...
Код:
По данной процедуре описаной выше можно ли каким либо способом создавать папки или файлы?
тобиш файла такова нету но при нажатии на кнопку он там появляется, какбы закачивается... Pic = 'http://www.codenet.ru/images/clame/tekama-2008-03-1-728x90.gif';
если это не возможно с такой процедурой опишите любую другую желательно максимально простую... зарание спасибо всем за удиление внимания...
Ну так упакуй получение в обработку ошибок:
Код:
try
HTTP.Get(Pic, Stream);
Stream.Position := 0;
TMemoryStream(Stream).SaveToFile(SPic);
except
on E: EIdHTTPProtocolException do
begin
if E.Message = 'HTTP/1.1 404 Not Found' then
MessageDlg('Файл не найден', mtWarning, [mbOk], 0);
end;
end;
HTTP.Get(Pic, Stream);
Stream.Position := 0;
TMemoryStream(Stream).SaveToFile(SPic);
except
on E: EIdHTTPProtocolException do
begin
if E.Message = 'HTTP/1.1 404 Not Found' then
MessageDlg('Файл не найден', mtWarning, [mbOk], 0);
end;
end;
Цитата:
По данной процедуре описаной выше можно ли каким либо способом создавать папки или файлы?
тобиш файла такова нету но при нажатии на кнопку он там появляется, какбы закачивается... Pic = 'http://www.codenet.ru/images/clame/tekama-2008-03-1-728x90.gif';
тобиш файла такова нету но при нажатии на кнопку он там появляется, какбы закачивается... Pic = 'http://www.codenet.ru/images/clame/tekama-2008-03-1-728x90.gif';
Ты имеешь ввиду, создавался на удалённом диске? Тогда нужно использовать TIdFTP со всеми присущими этому протоколу аттрибутами (хост, юзернейм, пароль...) Либо писать удалённый скрипт, которому методом POST отправлять создаваемый файл, складывая его по требуемому пути.