Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запись в поле binary Stream данных / 2 сообщений из 2, страница 1 из 1
30.11.2003, 11:20
    #32338632
Петр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись в поле binary Stream данных
Не могу записать в поле binary (SQL Server ADO), stream -> пишет несовмечтимость типов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
var
 Grid: TDBGrid;
 Stream: TStream;
 Table: TADOTable;
begin
        Grid.Columns.SaveToStream(Stream);
***
end;


Подскажите правильный формат...
...
Рейтинг: 0 / 0
01.12.2003, 06:39
    #32338881
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись в поле binary Stream данных
читай Help и будет тебе счастье
Код: 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.
25.
26.
Loads BLOB data from a stream into the field.

procedure LoadFromStream(Stream: TStream);

Description

Use LoadFromStream to copy the contents of a stream into the BLOB field. Specify the stream from which the field’s value is copied as the value of the Stream parameter.

Note:	The Stream parameter is typically not a BLOB stream. BLOB streams (returned by the dataset’s CreateBlobStream method) provide a completely separate mechanism for streaming data into a BLOB field.

var

  MS: TMemoryStream;
begin
  if not (ClientDataSet1.State in [dsInsert, dsEdit]) then
    ClientDataSet1.Insert;
  MS := TMemoryStream.Create();
  try
    Image1.Picture.Bitmap.SaveToStream(MS);
    ClientDataSet1Images.LoadFromStream(MS);
  finally
    MS.Free;
  end;
  ClientDataSet1.Post;

end;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запись в поле binary Stream данных / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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