VPF::save richedit to access db help needed - Форум программистов

huismori

Дата 15.2.2011, 18:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

trying to save richedit text to access database with all atribitues but it doesnt work ???

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  rtfstring:WideString ;
begin
    ms := TMemoryStream.Create;
    ms.Clear;
    RichEdit1.Lines.SaveToStream(ms);
    ms.Position := 0;
       if (ms.Size > 0) then begin
       SetLength(rtfString, ms.Size);
          if (ms.Read(rtfString[1], ms.Size) <= 0) then
          raise EStreamError.CreateFmt('End of stream reached with %d bytes left to read.', [ms.Size]);
          end;
    ADOTable1.Active := True;
    ADOTable1.Insert;
    ADOTable1.FieldByName('richedittext').AsWideString := rtfString;
    ADOTable1.Post;
    ms.Free;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
    ms: TMemoryStream;
    rtfstring:WideString ;
begin
    rtfString := AdoTable1.FieldByName('Richedittext').AsWideString ;
    ms := TMemoryStream.Create;
    ms.Clear;
    ms.Write(PAnsiChar(rtfString)^, Length(rtfString));
    ms.Position := 0;
    RichEdit1.PlainText := False;
    RichEdit1.Lines.LoadFromStream(ms);
    ms.Free;
end;

cat512

Дата 16.2.2011, 09:22 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 7
Всего: 15

It'll never be to work, because u pass into field an empty string. It would be rightly, if u create a blob field instead of string field

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