|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Конвертер изображения
Доброго времени суток, колдуны))) решил добавить в проект фото(фотки клиентов), нашел конвертер, немного переделал, появились конфликты.
Корректировка важная т.к выполняет сохранение изменений. --------------------------------------------------------------------------------- Код:
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
|
|||
|
|||
Ну, ты бы написал какие "конфликты" возникли...
И что такое "конфликты". А то нет такого термина... |
#3
|
|||
|
|||
Вот такая Пупа =)
Мое набранное сообщение слишком короткое.
|
#4
|
|||
|
|||
А вот Лупа с FastReporto'm =)
Памагите пожаЛйуста) очинь ПрошУ
|
#5
|
|||
|
|||
Ну, по поводу первой ошибки все понятно - нет такого поля "Фото". Проверяй свою БД и имена полей.
По поводу второй ошибки - надо, наверное, смотреть права доступа к папке Дельфи (начиная как минимум с Vista, доступ к папке с программами ограничен, а Дельфя вечно что-то пытается туда писать, особенно при компиляции VCL из исходников). Я для Д7 просто дал полный доступ ко всему дереву папок что бы не мучаться. |
#6
|
||||
|
||||
В битмапе значит мордотип клиентуры лежит, отлично - 300Х300 пикс., это примерно 270 Кб. на один фейс: переведите в jpeg`и посредством JPGImage, будет где-то по 18-20 Кб, вот пример как их запихивать/показывать в/из базу
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
BlacKCheT (22.06.2018)
|
#7
|
|||
|
|||
Кайф, а с отчетом что делать?
Я покопался, нашел человека с такой же проблемой, но его решение не помогло.(FastReport)
http://www.cyberforum.ru/delphi-begi...html:confused: |
#8
|
||||
|
||||
Что-то пошло не так
Ссыль не открывается, страничка не существует, одмины сайбера ругаются
З.Ы. Понятно, смайлик без пробела был воткнут, отсюда и ошибка, чичас почитаю тамошнюю темку Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 22.06.2018 в 21:00. |
#9
|
||||
|
||||
Почитал, возник вопрос - здешняя тема называется "Конвертер изображения", тамошняя "Ошибка "Could not create output file" при компиляции проекта - Delphi" FastReport здесь каким боком?, мож просветите что не так
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#10
|
|||
|
|||
Жду))
Вроде пока все компелится))) только ошибка в FastReporte. P.S мне кажеЦа что дело в указанном пути установки библиотеки
|
#11
|
|||
|
|||
Думаю лучше сейчас создам новый топик, т.к может кому пригодиться.
Думаю лучше сейчас создам новый топик, т.к может кому пригодиться.
|
#12
|
|||
|
|||
по поводу ошибки с FR написал в др. теме. Скорее всего FR установлен компилиться из исходников, т.е. перекомпиляет их,ю а прав записать в соотв. папку нету. Дай полные права на корневую папку FR рекурсивно и все должно полечиться.
|
#13
|
|||
|
|||
По теме конвертера
Тут явно что-то не так)))
|
#14
|
|||
|
|||
Скрин
не верный формат?
|
#15
|
|||
|
|||
Такие дела
Вообщем сделал так:
Код:
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; Но есть проблема, пути меняются, фотки загружаются, но они не меняются у каждой записи. Т.е если загрузить фото, оно останется у всех, хоть как и говорил пути фоток разные у всех. |