Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вопрос о TBLOBField 
:(
    Опции темы
Value
Дата 21.12.2005, 07:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 2.12.2005

Репутация: нет
Всего: нет
на форуме прочитал о сохранении картинки в БД. Там описывается TBLOBField, пробуя ввести его у себя при компиляции выскакивает ошибка "Undeclared indetifier TBLOBField". Где нужно его декларировать, я пробовал в TYPE BLOBField=Tblobfield, пробовал в глобальной и в локальной переменных. Подскажите что делать....
PM MAIL   Вверх
Vit
Дата 21.12.2005, 07:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207
Пример кода - в студию...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
offline
Дата 21.12.2005, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
посмотри, есть ли у тебя в

uses DB;
PM MAIL   Вверх
Value
Дата 21.12.2005, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 2.12.2005

Репутация: нет
Всего: нет
Код
unit VvodRastenijaUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ExtDlgs;

type
  TAugaloIvedimasForm = class(TForm)
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    savebtn: TButton;
    cancelbtn: TButton;
    imagebtn: TButton;
    Label8: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    DBImage1: TDBImage;
    Edit1: TEdit;
    Label3: TLabel;
    Button1: TButton;
    procedure imagebtnClick(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1Change(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2Change(Sender: TObject);
    procedure savebtnClick(Sender: TObject);
    procedure cancelbtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VvodrastenijaForm: TVvodrastenijaForm;

implementation

uses DataModuleUnit, AugalasUnit, JPEG;

{$R *.dfm}

procedure TVVodRastenijaForm.imagebtnClick(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
edit1.Text:=openpicturedialog1.filename;
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
augalasform.DBImage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;

procedure TVvodRastenijaForm.Button1Click(Sender: TObject);
begin
datamodule2.AugalasTable.FieldByName('снимок растения') as Tblobfield).loadfromfile('edit1.text');
end;


здесь приведены только едит для отображения пути, DBImage для показа картинки и кнопка для сохранения кратинки в БД
PM MAIL   Вверх
offline
Дата 22.12.2005, 01:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 474
Регистрация: 7.2.2005

Репутация: 7
Всего: 7
читай выше
Цитата

посмотри, есть ли у тебя в

uses DB;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0441 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.