Уникальное имя изображения

kovalenko · 2017-07-13 07:07:52

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Topic: Уникальное имя изображения

Может кто подскажет, а то что-то не могу понять. К приёму в ремонт прикладывается изображение устройства, как при сохранении в папку Photo этому изображению присвоить уникальное имя? Предположим Номер заказа+Дата оформления? С учётом того, что изображений может быть несколько?

надо идти вперёд....

DriveSoft · 2017-07-13 13:26:39

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

Сделал для вас проект с примером:

скрипт

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end else if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
    end;
end;

Проект:

Post's attachments

LinkFile and change filename.zip 51.87 kb, 294 downloads since 2020-03-17

Dmitry.

kovalenko · 2017-07-13 13:39:40

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

Сделал для вас проект с примером:

скрипт

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName);
    end;
end;

Проект:

Спасибо, но есть два вопроса:
- создал в вашем примере нового абонента, и у всех стала одна и та-же добавленная мною последняя фотка. Попробовал несколько раз, иногда выводиться правильно, потом опять создаёшь абонента и опять "криво" выводятся изображения
- и как это реализовать если надо сохранить от 3-6 изображений.

надо идти вперёд....

DriveSoft · 2017-07-13 13:40:45

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

Скачайте проект снова, видимо вы успели скачать проект до того, как я его исправил.

Dmitry.

kovalenko · 2017-07-13 13:50:49

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

Скачайте проект снова, видимо вы успели скачать проект до того, как я его исправил.

Да, заработало. А подскажите как реализовать если на frmAbonent для абонента не одна фотка, а три?

надо идти вперёд....

DriveSoft · 2017-07-13 14:14:40

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

kovalenko wrote:

DriveSoft wrote:
Скачайте проект снова, видимо вы успели скачать проект до того, как я его исправил.
Да, заработало. А подскажите как реализовать если на frmAbonent для абонента не одна фотка, а три?

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto1.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto1.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
    
    if frmAbonent.dbPhoto2.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto2.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;

    if frmAbonent.dbPhoto3.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto3.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
end;

Dmitry.

kovalenko · 2017-07-13 14:16:14

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

kovalenko wrote:

DriveSoft wrote:
Скачайте проект снова, видимо вы успели скачать проект до того, как я его исправил.
Да, заработало. А подскажите как реализовать если на frmAbonent для абонента не одна фотка, а три?

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto1.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto1.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
    
    if frmAbonent.dbPhoto2.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto2.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;

    if frmAbonent.dbPhoto3.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto3.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
end;

Однако))))
Спасибо!!!

надо идти вперёд....

kovalenko · 2017-07-17 07:20:21

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

kovalenko wrote:

DriveSoft wrote:
Скачайте проект снова, видимо вы успели скачать проект до того, как я его исправил.
Да, заработало. А подскажите как реализовать если на frmAbonent для абонента не одна фотка, а три?

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto1.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto1.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
    
    if frmAbonent.dbPhoto2.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto2.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;

    if frmAbonent.dbPhoto3.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto3.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
end;

Дмитрий здравствуйте. Что-то у меня работать не хочет. Готов вам на почту выслать свой проект, поможете?

надо идти вперёд....

DriveSoft · 2017-07-17 10:51:03

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

kovalenko
Пришлите пожалуйста проект на support@drive-software.com со ссылкой на данную тему.

Dmitry.

kovalenko · 2017-07-17 11:07:14

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

kovalenko
Пришлите пожалуйста проект на support@drive-software.com со ссылкой на данную тему.

Отправил.
Спасибо.

надо идти вперёд....

kovalenko · 2017-07-18 15:39:38

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

kovalenko wrote:

DriveSoft wrote:
kovalenko
Пришлите пожалуйста проект на support@drive-software.com со ссылкой на данную тему.
Отправил.
Спасибо.

Дмитрий здравствуйте. Я могу рассчитывать на вашу помощь?

надо идти вперёд....

DriveSoft · 2017-07-18 16:50:10

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

Можете, к сожалению на форуме скопилось много вопросов, не успеваю ответить всем быстро )

Dmitry.

DriveSoft · 2017-07-19 11:35:19

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

Пожалуйста опишите порядок действий, чтобы протестировать работу скрипта, при создании нового заказа я не вижу на форме frmApplication "Изображения к заказу"

Dmitry.

kovalenko · 2017-07-19 12:29:31

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

Пожалуйста опишите порядок действий, чтобы протестировать работу скрипта, при создании нового заказа я не вижу на форме frmApplication "Изображения к заказу"

Здравствуйте. Там есть GroupBox "Устройство" на нём Check box "Изображения к заказу".

надо идти вперёд....

DriveSoft · 2017-07-20 12:13:34

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

Попробуйте так

procedure frmApplication_Button1_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmApplication.DBImage1.dbImageIsChanged then
    begin
        sFileName := frmApplication.DBImage1.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmApplication.DBImage1.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmApplication.DBImage1.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                //if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
            end;
        end;

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
    end;


    if frmApplication.DBImage2.dbImageIsChanged then
    begin
        sFileName := frmApplication.DBImage2.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmApplication.DBImage2.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmApplication.DBImage2.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                //if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
            end;
        end;

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));

    end;

    if frmApplication.DBImage3.dbImageIsChanged then
    begin
        sFileName := frmApplication.DBImage3.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmApplication.DBImage3.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmApplication.DBImage3.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                //if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
            end;
        end;

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
    end;
end;

Dmitry.

kovalenko · 2017-07-20 12:41:29

kovalenko
Member
Offline

From: Санкт-Петербург
Registered: 2017-03-09
Posts: 266

Re: Уникальное имя изображения

DriveSoft wrote:

Попробуйте так

procedure frmApplication_Button1_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmApplication.DBImage1.dbImageIsChanged then
    begin
        sFileName := frmApplication.DBImage1.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmApplication.DBImage1.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmApplication.DBImage1.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                //if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
            end;
        end;

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
    end;


    if frmApplication.DBImage2.dbImageIsChanged then
    begin
        sFileName := frmApplication.DBImage2.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmApplication.DBImage2.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmApplication.DBImage2.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                //if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
            end;
        end;

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));

    end;

    if frmApplication.DBImage3.dbImageIsChanged then
    begin
        sFileName := frmApplication.DBImage3.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmApplication.DBImage3.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmApplication.DBImage3.dbCopyTo + '\'+ frmApplication.edCounter.Text + '_' + DateToStr(frmApplication.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                //if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
            end;
        end;

        if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE application SET PhotoIn3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmApplication.Button1.dbGeneralTableId));
    end;
end;

Всё заработало!!!
ОГРОМНЕЙШЕЕ СПАСИБО!!!

надо идти вперёд....

sdhale29 · 2020-03-17 07:22:39

sdhale29
Member
Offline

Registered: 2015-11-12
Posts: 34

Re: Уникальное имя изображения

Hello,

I downloaded the example, and I cannot get it to work. Even with no changes to the phonebook example. It just keeps adding 1 to the photo names. Like
image.jpg, image(1).jpg, image(2).jpg and so on.
It doesn't rename them from the original name, or give a warning that the file exists. I would just like to delete the existing file from the folder (or overwrite) when I select a new one. Any help would be appreciated. I love MVD!!!!!!

Thanks,
Sonny
MVD 6.2

Correction MVD 6.3!!!!!!

Sonny.

DriveSoft · 2020-03-17 14:35:09

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

sdhale29 wrote:

Hello,
I downloaded the example, and I cannot get it to work. Even with no changes to the phonebook example. It just keeps adding 1 to the photo names. Like
image.jpg, image(1).jpg, image(2).jpg and so on.
It doesn't rename them from the original name, or give a warning that the file exists. I would just like to delete the existing file from the folder (or overwrite) when I select a new one. Any help would be appreciated. I love MVD!!!!!!
Thanks,
Sonny
MVD 6.2
Correction MVD 6.3!!!!!!

Hello.

Thank you for the bug report, fixed, please download the example again
http://myvisualdatabase.com/forum/misc. … download=1

Dmitry.

sdhale29 · 2020-03-17 17:31:20

sdhale29
Member
Offline

Registered: 2015-11-12
Posts: 34

Re: Уникальное имя изображения

Hello Dmitry,

Thanks for the quick response, however it still isn't working for me. I have not made any changes to the example. I just added a picture to John over and over again and it is still the same. I have attached a screenshot.

Thanks,
Sonny

Post's attachments

File Rename.png 114.88 kb, 164 downloads since 2020-03-17

Sonny.

DriveSoft · 2020-03-17 23:04:14

DriveSoft
Administrator
Offline

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

Re: Уникальное имя изображения

sdhale29 wrote:

Hello Dmitry,
Thanks for the quick response, however it still isn't working for me. I have not made any changes to the example. I just added a picture to John over and over again and it is still the same. I have attached a screenshot.
Thanks,
Sonny

Please check the script

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end else if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
    end;
end;

Pay attention to this line

        end else if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));

Dmitry.

Уникальное имя изображения

Posts: 20

1 Topic by kovalenko 2017-07-13 07:07:52

Topic: Уникальное имя изображения

2 Reply by DriveSoft 2017-07-13 13:26:39

Re: Уникальное имя изображения

3 Reply by kovalenko 2017-07-13 13:39:40

Re: Уникальное имя изображения

4 Reply by DriveSoft 2017-07-13 13:40:45

Re: Уникальное имя изображения

5 Reply by kovalenko 2017-07-13 13:50:49

Re: Уникальное имя изображения

6 Reply by DriveSoft 2017-07-13 14:14:40

Re: Уникальное имя изображения

7 Reply by kovalenko 2017-07-13 14:16:14

Re: Уникальное имя изображения

8 Reply by kovalenko 2017-07-17 07:20:21

Re: Уникальное имя изображения

9 Reply by DriveSoft 2017-07-17 10:51:03

Re: Уникальное имя изображения

10 Reply by kovalenko 2017-07-17 11:07:14

Re: Уникальное имя изображения

11 Reply by kovalenko 2017-07-18 15:39:38

Re: Уникальное имя изображения

12 Reply by DriveSoft 2017-07-18 16:50:10

Re: Уникальное имя изображения

13 Reply by DriveSoft 2017-07-19 11:35:19

Re: Уникальное имя изображения

14 Reply by kovalenko 2017-07-19 12:29:31

Re: Уникальное имя изображения

15 Reply by DriveSoft 2017-07-20 12:13:34

Re: Уникальное имя изображения

16 Reply by kovalenko 2017-07-20 12:41:29

Re: Уникальное имя изображения

17 Reply by sdhale29 2020-03-17 07:22:39 (edited by sdhale29 2020-03-17 07:26:27)

Re: Уникальное имя изображения

18 Reply by DriveSoft 2020-03-17 14:35:09

Re: Уникальное имя изображения

19 Reply by sdhale29 2020-03-17 17:31:20

Re: Уникальное имя изображения

20 Reply by DriveSoft 2020-03-17 23:04:14

Re: Уникальное имя изображения

Posts: 20