|
|
Регистрация | << Правила форума >> | 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)
|