Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.06.2018, 21:18
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
Сообщение Конвертер изображения

Доброго времени суток, колдуны))) решил добавить в проект фото(фотки клиентов), нашел конвертер, немного переделал, появились конфликты.
Корректировка важная т.к выполняет сохранение изменений.
---------------------------------------------------------------------------------

Код:
procedure TForm7.Button5Click(Sender: TObject);
//var pick: string;
//begin
//DATAModule2.ADOQuery1.Edit;
//If Form7.OpenPictureDialog1.Execute then Form7.DBMemo1.Text:=Form7.OpenPictureDialog1.FileName;
//pick:=Form7.DBMemo1.Text;
//Form7.DBImage1.Picture.LoadFromFile(pick);  //вариант без конвертера
//DATAModule2.ADOQuery1.Post;
//end;

Код:
procedure TForm7.Button5Click(Sender: TObject);
var
  ConverterLoad: TImage;
  ConverterSave: TBitmap;
  ConverterStream: TMemoryStream;   //вариант с конвертером
  pick: string;
begin
  DATAModule2.ADOQuery1.Edit;
  If Form7.OpenPictureDialog1.Execute then
  begin
    Form7.DBMemo1.Text:=Form7.OpenPictureDialog1.FileName;
    pick:=Form7.DBMemo1.Text;
    ConverterSave := TBitmap.Create;
    ConverterSave.Height := 300; // от размера зависит качество
    ConverterSave.Width := 300;
    ConverterLoad := TImage.Create(Self);
    ConverterLoad.Name := 'ImageConverter';
    ConverterLoad.Picture.LoadFromFile(pick);
    ConverterSave.Canvas.StretchDraw(ConverterSave.Canvas.ClipRect,ConverterLoad.Picture.Graphic); // BMP готов
    DBImage1.Picture.Bitmap := ConverterSave;
    ConverterStream := TMemoryStream.Create;
    ConverterSave.SaveToStream(ConverterStream); // изображение в Stream
    TBlobField(DataModule2.ADOQuery1.FieldByName('Фото')).LoadFromStream(ConverterStream);
    ConverterLoad.Free;
    ConverterSave.Free;
    DATAModule2.ADOQuery1.Post;
  end;
end;
Ответить с цитированием
  #2  
Старый 21.06.2018, 21:24
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, ты бы написал какие "конфликты" возникли...
И что такое "конфликты". А то нет такого термина...
Ответить с цитированием
  #3  
Старый 22.06.2018, 19:12
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Вот такая Пупа =)

Мое набранное сообщение слишком короткое.
Изображения
Тип файла: png Пупа.png (20.1 Кбайт, 5 просмотров)
Ответить с цитированием
  #4  
Старый 22.06.2018, 19:13
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию А вот Лупа с FastReporto'm =)

Памагите пожаЛйуста) очинь ПрошУ
Изображения
Тип файла: png Лупа.png (8.1 Кбайт, 6 просмотров)
Ответить с цитированием
  #5  
Старый 22.06.2018, 20:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, по поводу первой ошибки все понятно - нет такого поля "Фото". Проверяй свою БД и имена полей.
По поводу второй ошибки - надо, наверное, смотреть права доступа к папке Дельфи (начиная как минимум с Vista, доступ к папке с программами ограничен, а Дельфя вечно что-то пытается туда писать, особенно при компиляции VCL из исходников). Я для Д7 просто дал полный доступ ко всему дереву папок что бы не мучаться.
Ответить с цитированием
  #6  
Старый 22.06.2018, 20:31
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

В битмапе значит мордотип клиентуры лежит, отлично - 300Х300 пикс., это примерно 270 Кб. на один фейс: переведите в jpeg`и посредством JPGImage, будет где-то по 18-20 Кб, вот пример как их запихивать/показывать в/из базу
Вложения
Тип файла: zip Blb.zip (205.2 Кбайт, 3 просмотров)
Ответить с цитированием
Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
BlacKCheT (22.06.2018)
  #7  
Старый 22.06.2018, 20:47
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
Смущение Кайф, а с отчетом что делать?

Я покопался, нашел человека с такой же проблемой, но его решение не помогло.(FastReport)

http://www.cyberforum.ru/delphi-begi...html:confused:
Ответить с цитированием
  #8  
Старый 22.06.2018, 20:51
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию Что-то пошло не так

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

З.Ы. Понятно, смайлик без пробела был воткнут, отсюда и ошибка, чичас почитаю тамошнюю темку

Последний раз редактировалось Alegun, 22.06.2018 в 21:00.
Ответить с цитированием
  #9  
Старый 22.06.2018, 21:09
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Почитал, возник вопрос - здешняя тема называется "Конвертер изображения", тамошняя "Ошибка "Could not create output file" при компиляции проекта - Delphi" FastReport здесь каким боком?, мож просветите что не так
Ответить с цитированием
  #10  
Старый 22.06.2018, 21:09
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
Смущение Жду))

Вроде пока все компелится))) только ошибка в FastReporte. P.S мне кажеЦа что дело в указанном пути установки библиотеки
Ответить с цитированием
  #11  
Старый 22.06.2018, 21:13
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Думаю лучше сейчас создам новый топик, т.к может кому пригодиться.

Думаю лучше сейчас создам новый топик, т.к может кому пригодиться.
Ответить с цитированием
  #12  
Старый 22.06.2018, 22:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

по поводу ошибки с FR написал в др. теме. Скорее всего FR установлен компилиться из исходников, т.е. перекомпиляет их,ю а прав записать в соотв. папку нету. Дай полные права на корневую папку FR рекурсивно и все должно полечиться.
Ответить с цитированием
  #13  
Старый 23.06.2018, 21:49
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию По теме конвертера

Тут явно что-то не так)))
Изображения
Тип файла: png Screenshot_17.png (36.0 Кбайт, 4 просмотров)
Ответить с цитированием
  #14  
Старый 23.06.2018, 21:51
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
Вопрос Скрин

не верный формат?
Изображения
Тип файла: png thyhyhy.png (18.6 Кбайт, 6 просмотров)
Ответить с цитированием
  #15  
Старый 24.06.2018, 10:15
BlacKCheT BlacKCheT вне форума
Прохожий
 
Регистрация: 05.05.2018
Сообщения: 40
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Такие дела

Вообщем сделал так:

Код:
procedure TForm7.BitBtn2Click(Sender: TObject);
var
pic: string;
begin
DataModule2.ADOTable3.Edit;
if Form7.OpenPictureDialog1.Execute then Form7.DBMemo1.Text:= Form7.OpenPictureDialog1.FileName; //Кнопка обзор, добавление фото к записи
pic:= Form7.DBMemo1.Text;
Form7.Image1.Picture.LoadFromFile(pic);
DataModule2.ADOTable3.Post;
end;


procedure TForm7.FormCreate(Sender: TObject);                   //Загрузка фото по умолчанию
begin
if Form7.DBMemo1.Text='' then Form7.Image1.Picture.LoadFromFile('Img\camera.bmp') else Form7.Image1.Picture.LoadFromFile(Form7.DBMemo1.Text);
end;

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if DataModule2.ADOTable3.Modified then DataModule2.ADOTable3.Post;   //Кнопка сохранить
DataModule2.ADOTable3.Append;
end;

procedure TForm7.BitBtn3Click(Sender: TObject);
begin
Form7.Close;
end;

Но есть проблема, пути меняются, фотки загружаются, но они не меняются у каждой записи. Т.е если загрузить фото, оно останется у всех, хоть как и говорил пути фоток разные у всех.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:47.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter