[Assistant]

ты бы исходники проекта приложил (с базой), проще было бы

[jekahm]

Вот сам проект (в тестовом варианте)
http://depositfiles.com/files/q7j9sr00o

[Assistant]

блин, не могу импортировать, у тя MSSQL 2000 чтоли?
импортируй используемые таблицы в SQL-text

добавление: не, не надо, чота я протупил, щас сам базу создам с таблицей

[Assistant]

тебе нужно событие ставить не в AfterScroll что бы появлялась картинка сразу после добавления, а в AfterPost (AfterScroll срабатывает когда перемещаешься по набору данных, а не после добавления данных). НО и событие AfterScroll оставить тоже (создай процедуру и воткни её в AfterScroll и AfterPost, что бы не плодить код лишний)

Добавление: и добавь ADOQuery1.Post; в конец процедуры, которая сохраняет данные в IMAGE поле (тогда картинка будет появляется сразу после нажатия кнопки добавления)

[jekahm]

Сообщение от Assistant

блин, не могу импортировать, у тя MSSQL 2000 чтоли?
импортируй используемые таблицы в SQL-text

добавление: не, не надо, чота я протупил, щас сам базу создам с таблицей

Та нет...2008-ой MS SQL.
А вообще там и импортировать нечего...обычная тестовая база StudyDB, которая состоит из одной таблицы temptable (а таблица в свою очередь состоит из трёх полей: id, name и photo)

[Assistant]

база не нужна уже, я выше написал что нужно переделать (доделать)

[Kapitoshka438]

Сообщение от jekahm

...
Также попытался вывести изображение (но уже в другой Image) с помощью

Код:

Image2.Picture.Graphic.LoadFromStream(Stream);

из потока, который использовал при добавлении изображения, но все равно ничего не происходит!

Такое не пройдет.

procedure TForm1.Button3Click(Sender: TObject);
var MS : TFileStream;
Stream: TMemoryStream;
begin
DataSource1.DataSet.Open;
DataSource1.DataSet.Insert;
Stream := TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(Stream);
TBlobField(ADOQuery1.FieldByName('photo')).LoadFro mStream(Stream);
Stream.Free;
end;

А где Post?

[jekahm]

Всем большое спасибо за помощь! Вроде бы во всём разобрался!

Но есть еще один вопрос (немного не по теме)! Я сделал поиск по Гриду (в виде фильтра). И один из элементов, который я использую для этого - ComboBox (для выбора поля, по которому будет происходить фильтрация).
Для заполнения комбобокса пишу такой код

Код:

for i:=0 to ADOQuery1.FieldCount - 1 do
Combobox1.Items.Add(ADOQuery1.Fields[i].fieldname);
ComboBox1.text := ADOQuery1.Fields[0].fieldname;

Но как мне сделать, чтобы в комбобоксе были имена полей понятные для обычного человека...например на русском языке (а не такие имена, которые я присваивал полям еще при создании таблицы в MS SQL)?
Заранее благодарен!

[jekahm]

Народ, ну кто-нибудь, отзовитесь!

[Assistant]

самый просто способ, при заполнении грида, сопостовлять "поле -> нормальное имя" через case и при взятии значения из combobox делать обратное сопостовление "нормальное имя->поле". типо такова:

Код:

var
  fields, names: TStringList;

function TForm1.GetNameFromField(field: string);
begin
  Result := names[fields.IndexOf(field)];
end;

function TForm1.GetFieldFromName(name: string);
begin
  Result := fields[names.IndexOf(name)];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fields := TStringList.Create;
  names := TStringList.Create;

  fields.Add('fio');
  names.Add('Фамилия');

  fields.Add('name');
  names.Add('Название');

  fields.Add('value');
  names.Add('Значение');

  for i:=0 to ADOQuery1.FieldCount - 1 do
    Combobox1.Items.Add(GetNameFromField(ADOQuery1.Fields[i].fieldname));
end;

procedure TForm1.FilterClick(Sender: TObject);
var
  fieldname: string;
begin
  fieldname := GetFieldFromName(ComboBox1.Text);
  // тут применение фильтра по полю fieldname
end;

можно сделать и на массива (но так для понимая проще, как я написал).

P.S.: за ошибки не ручаюсь, писалось "на лету" без Delphi, но смысел должен быть понятен