• Registered: 2016-06-21
  • Posts: 133

Topic: Загрузка изображений/файлов в БД

Добрый день!
Подскажите как через скрипт загрузить файлы/изображения из папки?


Путь указываю через SelFolder в режиме LinkFolder, список файлов для загрузки получаю скриптом:

procedure fFirstMaterialColour_SelFolder_OnChange (Sender: TObject);
var SL: TStringList;
    a: array of string;
    i,c: integer;
begin
    if fFirstMaterialColour.SelFolder.Text<>'' then
    begin
        SL := TStringList.Create;
        SL.Text:=GetFilesList(fFirstMaterialColour.SelFolder.Text,'*.jpg',false);
        c:=SL.Count -1 ;
        for i := 0 to c do
        begin
            a:=SplitString(ExtractFileName(SL[i]),'.');
            fFirstMaterialColour.ColourCode.Text:=a[0];
            fFirstMaterialColour.Image.Picture.LoadFromFile(SL[i]);
        end;
        SL.Free;
    end;
end;

fFirstMaterialColour.ColourCode - номер цвета (берется из имени файла) /textbox
fFirstMaterialColour.Image.Picture - файл изображения /компонент Image (который для сохранения изображений в БД)

Надо в конце цикла загрузить файлы с описанием в БД

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Загрузка изображений/файлов в БД

Посмотрите пожалуйста данные примеры
http://myvisualdatabase.com/forum/misc. … download=1
http://myvisualdatabase.com/forum/misc. … download=1
http://myvisualdatabase.com/forum/misc. … download=1

Dmitry.
  • Registered: 2018-02-26
  • Posts: 4

Re: Загрузка изображений/файлов в БД

Нигде не нашел примеров загрузки изображений из интернета. Неужели нельзя?
Задача - после указания ссылки на изображение по URL, сохранить его в папке IMG и присвоить этот путь dbImage.
Может кто-то бросит пример?

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,538

Re: Загрузка изображений/файлов в БД

v-dorogu wrote:

Нигде не нашел примеров загрузки изображений из интернета. Неужели нельзя?
Задача - после указания ссылки на изображение по URL, сохранить его в папке IMG и присвоить этот путь dbImage.
Может кто-то бросит пример?

Загрузка файла из интернета -  функция HTTPGetFile(URL,FILENAME) - сохраняет файл из интернета на диске. Потом загружайте (см. примеры из  поста выше)

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2018-02-26
  • Posts: 4

Re: Загрузка изображений/файлов в БД

Наводка к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 не катит.