| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ado blob field [D6, MSSQL]

oss ©   (2002-06-10 12:44:00) 

Уважаемые, вот какое дело. Есть блоб поле, куда я записываю файлы. А проблема в том, что когда я читаю эти поля потом и создаю из их данных обратно файлы, то они не читаются как надо.
Ну к примеру *.doc просит установить доп.компоненти и в место файла в 3 страницы выдает 2,3 строчки белеберды

---

oss   (2002-06-10 20:38:00) [1]

пишу так
sr:=TADOBlobStream.Create(TMemoField(dm_main.ADODSimage),bmWrite);
if dm_main.OpenDialog1.Execute then
begin
// m - промежуточное мемо
m:=TMemo.create(nil);
m.Visible:=false;
m.Parent:=frm_main;
m.Lines.LoadFromFile(dm_main.OpenDialog1.Filename);
dm_main.ADODS.fieldbyname("doc").asstring:=String(dm_main.OpenDialog1.Filename);
try
s:=m.GetTextLen;
Inc(s);
P := AllocMem(S);
FillChar(P^, S, #0);
m.GetTextBuf(P, S);
sr.Write(P^, S);
finally
sr.Free;
FreeMem(P, S);
end;

dm_main.ADODS.Post;
end;


потом читаю так
sr:=TADOBlobStream.Create(TMemoField(dm_main.ADODSimage),bmRead);
// sr.Seek(78,soFromBeginning); для картинок
dm_main.SaveDialog1.FileName:=dm_main.ADODS.fieldbyname("doc").asstring;
if dm_main.SaveDialog1.Execute then
sr.SaveToFile(dm_main.SaveDialog1.FileName);
sr.Free;

---

TSV   (2002-06-10 13:07:00) [2]

Код в студию (как записываешь в БД и как потом читаешь)!

---

Наверх