Можно пример удаления файлов по дате их создания? Например все файлы за 2018 год.
2 2019-03-11 18:31:43
Re: Загрузка изображений/файлов в БД (4 replies, posted in Russian)
Наводка к245 помогла. Спасибо!
Ниже код для загрузки изображения по URL и присвоения его dbImage. Есть немного лишних строк для наглядности.
procedure Form2_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var
SourceFile, DestFile, Filename: string;
begin
if (POS('HTTP',UpperCase(Form2.Edit1.Text)) <> 0) AND (POS('.JPG',UpperCase(Form2.Edit1.Text)) <> 0) then
begin
Form2.DBImage1.dbImageIsChanged := True;
SourceFile := Form2.Edit1.Text;
Filename := Form2.Edit2.Text;
DestFile := ExtractFileDir(Application.Exename)+'/Images/'+Filename+'.jpg';
HTTPGetFile(SourceFile,DestFile);
Form2.DBImage1.Picture.LoadFromFile(DestFile);
Form2.DBImage1.dbFileName := DestFile;
end else
begin
ShowMessage('Это не ссылка или не файл jpg');
Cancel := True;
end;
end;
Кстати, только такое указание пути для DestFile работает и на Windows 7 и на Windows XP. Простое Images/ на XP не катит.
3 2019-03-09 13:33:39
Re: Загрузка изображений/файлов в БД (4 replies, posted in Russian)
Нигде не нашел примеров загрузки изображений из интернета. Неужели нельзя?
Задача - после указания ссылки на изображение по URL, сохранить его в папке IMG и присвоить этот путь dbImage.
Может кто-то бросит пример?
4 2018-02-26 15:51:03
Re: Import and Export (5 replies, posted in Russian)
Решил начать с реализации данного примера и сразу упёрся в то, что не понимаю как сюда прикрутить данные в формате Дата. Если при экспорте использовать cтандартное strfdate..., то как я понимаю там все затыкается на запятой - , или на апострофе - '. Помогите пожалуйста.