Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi и Access ... / 5 сообщений из 5, страница 1 из 1
03.06.2003, 19:29
    #32175644
var_max
var_max
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi и Access ...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Привет!
procedure TForm1.FilenameEdit1AfterDialog(Sender: TObject;
  var Name: String; var Action: Boolean);
var
S: TADOBLOBStream;
FileS: TFileStream;
begin
DataSource1.DataSet.Edit;
//DataSource1.DataSet.Insert;
S:= TADOBLOBStream.Create(ADOTable1Photo, bmReadWrite);
try
FileS:= TFileStream.Create(Name, fmOpenRead);
       // Name - место расположения BMP-рисунка
S.CopyFrom(FileS, FileS.Size);
finally
FileS.Free;
S.Free;
DataSource1.DataSet.Post;
end;
end;

 1 ) Подскажите, почему в поле Photo таблицы Access вставляется не Точечный
 рисунок, а Двоичные данные?
 2 ) Как избежать ошибки Stream read error при добавлении новой записи
 (DataSource1.DataSet.Insert).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2003, 21:47
    #32175685
Hammer
Hammer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi и Access ...
а так не катит?
procedure TForm1.FilenameEdit1AfterDialog(Sender: TObject;
var Name: String; var Action: Boolean);
begin
with TADOBlobStream.Create( ADOTable1Photo, bmReadWrite ) do
try
ADOTable1.Edit;
LoadFromFile( Name );
ADOTable1.Post;
finally
Free;
end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2003, 09:18
    #32180144
var_max
var_max
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi и Access ...
Код: plaintext
Так не катит сто процентов!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2003, 09:27
    #32180159
viman
viman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi и Access ...
а рисунок это не двоичные данные? :-)
был такой глюк, просто вставляет он совсем не то. попробуй так

Чтение
var MS : TMemoryStream;
ms:=TMemoryStream.Create;
TBlobField(sqInsert.FieldByName('worddoc')).SaveToStream(mS);
ms.Seek(0, soFromBeginning);
ms.SaveToFile('~temp.doc');

Запись
sqInsert.Edit;
ms:=TMemoryStream.Create;
ms.LoadFromFile('~temp.doc');
ms.Seek(0, soFromBeginning);
TBlobField(sqInsert.FieldByName('worddoc')).loadfromstream(mS);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2003, 11:10
    #32180289
Ден
Ден
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi и Access ...
2var_max
На счет первого вопроса не могу ответить, а добавить можно так..
var
ole: TFileStream;
Rs: TADOQuery;
begin
ole:=TFileStream.Create('F:\Price.xls',fmOpenReadWrite);
size:=ole.Size;
Rs:=TADOQuery.Create(nil);
rs.Connection:=dbs;
rs.SQL.Text:='insert into t_docs (doc) values (:p)';
rs.Parameters.ParamByName('p').LoadFromStream(ole,ftBlob);
rs.ExecSQL;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi и Access ... / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]