Версия для печати темы

Автор: sheka 7.02.2010 0:05

Мне нужно сделать тест. Базу вопросов хочу хранить как file of record. Проблема заключается в том, что в тесте должны быть картинки. Хотел сделать как поле записи. Но вот проблема: в файл не записывается ни поле :TImage ни :TPicture ни даже :TBitmap.
Как это можно осуществить?

Автор: volvo 7.02.2010 0:18

Автор: sheka 7.02.2010 2:43

Мне это надо в Дельфях...

Можете набросать пример?

type
  tq=record
    p:tbitmap;
  end;

var 
  q:tq;
  f:file of tq;

begin
//
end;

Автор: volvo 7.02.2010 3:38

type
  tq=record
    p:tbitmap;
  end;

Автор: sheka 7.02.2010 4:19

var
  q,w:TBitmap;
  f:file of TBitmap;
begin
  assignfile(f,'in');
{  rewrite(f);
  q:=TBitmap.Create;
  q.LoadFromFile('1.bmp');
  write(f,q);
  closefile(f);}
  reset(f);
  read(f,w);
  closefile(f);
  form1.Image1.Picture.Bitmap:=w;
end;

Как надоест - скажешь, я помогу тебе организовать хранение в БД.

Автор: volvo 7.02.2010 6:58

// 1. Из TImage в текущую запись БД:
procedure TForm1.Button1Click(Sender: TObject);
var memStr: TMemoryStream;
begin
  memStr := TMemoryStream.Create;
  try
    Image1.Picture.Graphic.SaveToStream(memStr);
    memStr.Seek(0, soFromBeginning);
    DBGrid1.DataSource.DataSet.Edit;
    TBlobField(DBGrid1.DataSource.DataSet.FieldByName('image')).LoadFromStream(memStr);
    DBGrid1.DataSource.DataSet.Post;
  finally
    memStr.Free;
  end;
end;

// 2. Из текущей записи БД назад в TImage - легко:
procedure TForm1.Button2Click(Sender: TObject);
var
  bStream: TADOBlobStream;
  bm: TBitmap;
begin
  if not DBGrid1.DataSource.DataSet.FieldByName('image').IsNull then
  begin
    bStream := TADOBlobStream.Create(TBlobField(DBGrid1.DataSource.DataSet.FieldByName('image')), bmRead);
    try
      bm := TBitmap.Create;
      bm.LoadFromStream(bStream);
      Image2.Picture.Bitmap.Assign(bm); // Это я для теста гружу в ДРУГОЙ Image
      bm.Free;
    finally
      bStream.Free;
    end;
  end;
end;

Автор: Archon 7.02.2010 10:50

sheka, база данных - это правильное решение, с ним разберись обязательно. Но если программа нужна срочно, то не вижу смысла вообще хранить изображения в каких-то своих форматах. Создай директорию и храни изображения там. Можешь изменить расширения файлов, чтобы никто не догадался =). А в записи отведи место только под имя файла.

Автор: sheka 7.02.2010 18:03

Автор: Client 8.02.2010 0:11

а можно вопрос?
как организовать фильтрацию данных? как можно тут использовать запросы?
например, хочу найти записи, значение поля 'fio' равно 'Иванов'. записей может быть несколько

Автор: volvo 8.02.2010 1:04

Фильтруй, кто тебе запрещает?

procedure TForm1.Button3Click(Sender: TObject);
var s: string;
begin
  s := 'Иванов';
  ADOTable1.Filtered := False;
  ADOTable1.Filter := '[fio] = ' + QuotedStr(s);
  ADOTable1.Filtered := True;
end;

Автор: Client 8.02.2010 1:15

спасибо

Автор: Client 9.02.2010 17:07

что-то сразу не заметил

QuotedStr(s);

function QuotedStr(const S: string): string;
var
  I: Integer;
begin
  Result := S;
  for I := Length(Result) downto 1 do
    if Result[I] = '''' then Insert('''', Result, I);
  Result := '''' + Result + '''';
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Button2.Caption:='''';
end;

Автор: VolvoGuest 9.02.2010 17:20

Button2.Caption := 'test of 's: error'; // Первый же одиночный апостроф строку "сломал"

Автор: Client 9.02.2010 17:30

хитро... раньше вставлял апостроф с помощью chr(), а теперь буду знать как лучше

Автор: sheka 10.02.2010 4:10

А как узнать индекс выделенной записи в DBGrid?
Есть ли для этого какая-то функция или надо в цикле проверять selected ?


Добавлено через 1 мин.
Что такое TQuery?

Автор: volvo 10.02.2010 4:45

type
  TDBGrid = class(DBGrids.TDBGrid)
  public // Теперь Row считается общим членом класса
    property Row;
  end;

Автор: sheka 10.02.2010 5:18

Автор: volvo 10.02.2010 6:17

А для этого ни разу не надо знать номер строки... Любая операция в Гриде производится с текущей строкой. Для ее удаления можно применить:

  DBGrid1.DataSource.DataSet.Delete;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  bStream: TADOBlobStream;
  bm: TBitmap;
begin
  if not DBGrid1.DataSource.DataSet.FieldByName('image').IsNull then
  begin
    bStream := TADOBlobStream.Create(TBlobField(DBGrid1.DataSource.DataSet.FieldByName('image')), bmRead);
    try
      bm := TBitmap.Create;
      bm.LoadFromStream(bStream);
      Image2.Picture.Bitmap.Assign(bm);
      bm.Free;
    finally
      bStream.Free;
    end;
  end
  else Image2.Picture := nil; // поле image пустое... Очищаем
end;

Автор: sheka 11.02.2010 0:33

Опять столкнулся с проблемой. Точнее с -ами)))

У меня должен в базе храниться достаточно длинный текст (где-то 1-3 предложения), а он целиком не помещается в одну строку(MSAccess на длину ругается, но это ничего страшного, можна обойтись и этой длиной. проблема в неудобности обозрения информации) . Вычитал, что стандартно многострочным поле ДБГрида быть не может. Мои варианты решений проблемы:
1) т.к. времени очень мало - забить на создание редактора базы и пользоваться MSAccess в этих целях. Но как тогда загрузить картинку через него? Если ее загружаешь( или просто из папки перетаскиваешь в поле ОЛЕ, или рисуешь встроеным редактором), то делфи выдает ошибку при считывании этого поля.
2) использовать поле МЕМО, вывод которого ДБГрид тоже не поддерживает. Т.е. его надо привязать к объекту мемо(тому который на форму кинуть можно).

из 2) появляется еще один вопрос: как считывать информацию из полей ДБГрида? (тоже как-то через поток?):
а) просто текстового поля
б) поля МЕМО - для реализации 2-го пункта.

Автор: volvo 11.02.2010 0:58

Memo1.Text := DBGrid1.DataSource.DataSet.FieldByName('memo_field').AsString;

Автор: sheka 11.02.2010 5:36

Автор: volvo 11.02.2010 6:09

Автор: sheka 16.02.2010 0:48

Надо бы вопросы выбирать из БД рандомно. Как это осуществить?
Как выделить запись я так и не нашел, тем более вы говорили что этого лучше не делать.

Откуда можно скачачть Д2009 ? Кстати, она на Виндовс 7 нормально работает, еще не проверяли?

Автор: Client 16.02.2010 0:54

ADOTable1.RecNo и ADOTable1.RecordCount - это текущая запись и количество записей. Этого может и хватит.

Автор: sheka 16.02.2010 1:00

Цитата(Client @ 15.02.2010 19:54)

Автор: volvo 16.02.2010 2:21

procedure TForm1.btnRandomRecClick(Sender: TObject);
var Curr: integer;
begin
  with DBGrid1.DataSource.DataSet do
  begin
    Curr := Random(RecordCount);
    First;
    MoveBy(Curr);
  end;
end;

Автор: sheka 16.02.2010 2:37

http://www.cyberguru.ru/delphi-sources/db-access/programmnoe-szhatie-bazy-dannykh-access-ispolzuya-dao.html
Вот нашел как программно сжать бд. Только Делфи ругается на DAO2000, говорит, что такого модуля он не знает.

И еще сразу же вопрос: если мне для работы ДБГрид не нужен(таблица на форме), то все равно его надо кинуть на форму и установить Visible:=False; или без него можно как-то обойтись(ADOTable1 или DataSource1 они же вроде выполняют функции свызывания с базой).

Автор: volvo 16.02.2010 4:15

Uses ComObj; // Добавить если еще нет этого модуля

// ...

function CompactAndRepair(DB: string) : boolean;
var
  v: OLEvariant;
begin { CompactAndRepair }
  Result := True;
  try
    v := CreateOLEObject('JRO.JetEngine');
    try
      //try
      v.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DB,
                        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DB +
                        'x;Jet OLEDB:Engine type=5');
      DeleteFile(DB);
      RenameFile(DB + 'x', DB)
    finally
      v := Unassigned
    end; { try }

  except
    Result := False
  end; { try }
end; { CompactAndRepair }

// Вызывать - так:
procedure TForm1.btnCompactDBClick(Sender: TObject);
const sDBPath = 'F:\Programs\Delphi\myProject\base.mdb';
begin
  ADOTable1.Close; // Закрываем все открытые таблицы и саму базу...
  ADOConnection1.Close;

  if CompactAndRepair(sDBPath) then
    ShowMessage('Success')
  else
    ShowMessage('Fault');

  ADOConnection1.Open; //Открываем в обратном порядке, сначала базу, потом - таблицы
  ADOTable1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.Open;
  ADOTable1.Open;

  // Ну, и что там тебе еще надо было...
end;

Автор: sheka 5.03.2010 1:22

Почему при перемещении по DataSource информация в DBText1 не меняется???
Спасайте, пожалуйста. Завтра уже надо сдавать тест в полностью рабочем состоянии...



Прикрепленные файлы
 новый.zip ( 522.28 килобайт ) Кол-во скачиваний: 207

Автор: Client 5.03.2010 1:39

проект не компилится, если закомментировать то не запускается...
Как в ДАТАСУРСЕ перемещаешся? Или через table?
Кстати, а пароль как узнать можно от базы?

Автор: sheka 5.03.2010 1:45

Цитата(Client @ 4.03.2010 20:39)

form1.DataSource1.DataSet.First;
  form1.DataSource1.DataSet.MoveBy(ord(variation[1])-1);

Автор: Client 5.03.2010 2:03

Путь к базе поменял в AdoConnection.

procedure NextQuestion;
var i:integer;
begin
  form1.DataSource1.DataSet.First;
  form1.DataSource1.DataSet.MoveBy(ord(variation[1])-1);
  form1.DBText1. // вот ошибка
  delete(variation,1,1);
  DrawComboNew;
  inc(curr);
  form1.Memo1.Lines.Clear;
  for i:=1 to length(variation) do
    form1.Memo1.Lines.Add(inttostr(ord(variation[i])));
end;

Автор: sheka 5.03.2010 2:09

Автор: Client 5.03.2010 2:21

запустилось...
хм, если добавить в твой проект DBEdit, то в нем инфа обновляется, а в DBText нет...

Автор: sheka 5.03.2010 2:22

Цитата(Client @ 4.03.2010 21:21)

запустилось...
хм, если добавить в твой проект DBEdit, то в нем инфа обновляется, а в DBText нет...

Автор: Client 5.03.2010 2:30

создал заново проект, добавил твою базу, кинул на форму дбтекст и дбедит. Все нормально обновляется...

Добавлено через 7 мин.
если без DBText никуда, то попробуй добавить обычный Label и задавай ему значение поля для текущей записи. Почему DBText сам не обновляется даже нет идей...

Автор: sheka 5.03.2010 3:01

Я думал, что проект мог быть "битым". Такое у меня уже бывало, но мне лень было его переделывать заново...
Спасибо за указание!

Автор: sheka 16.03.2010 2:14

volvo, Client, большое спасибо! Программу написал, сдал!