VPF::Сохранить String в Blob-поле таблицы

AlexLogos

Дата 11.3.2011, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

Доброго времени суток! Помогите пожалуйста довести до ума процедуры записи и чтения String в blob-поле таблицы.
Для записи использую процедуру

Код


function SaveStrToBlob(OQ:TOraQuery; Value:String; Fld:string):Boolean;
var
  blob,VarStream: TStream;
begin
with OQ do
 begin
     Edit;
     if State=dsEdit then
      try
       blob := CreateBlobStream(FieldByName(Fld), bmWrite);
       VarStream:=TStringStream.Create(Value);
       blob.Seek(0, soFromBeginning);
       VarStream.Seek(0, soFromBeginning);
       blob.CopyFrom(VarStream, VarStream.Size)
       VarStream.Free;
       blob.Free;
      finally
       Post;
      end;
 end;
end;

Для чтения

Код


function GetStrFromBlob(OQ:TOraQuery; Fld:string):String;
var blob: TStream;
begin
  Result:='';
  try
    blob := OQ.CreateBlobStream(OQ.FieldByName(Fld), bmRead);
    SetLength(Result,blob.Size); 
    blob.Read(Result[1],blob.Size);
  finally
    blob.Free;
  end;  
end;

При работе процедур ошибок не возникает, но после чтения внесенных данных я в результате получаю всякую белиберду.
Где-то я протупил, но где? Хелп плиз!

AlexLogos

Дата 11.3.2011, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

Пиплы, хелп!!! Ну хоть мыслишку...

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