Форум: "Базы";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

Как считать текстовый файл в VARCHAR(1500)?   Найти похожие ветки 

← →
Rumba   (2004-02-18 16:55) [0]

Мастаки, юзаю FIBPlus 5.08 - как считать из файла данные и занести
их в текстовое поле? Надо чтобы переносы строк сохранялись...

---

← →
Val ©   (2004-02-18 16:57) [1]

проблема в считывании из файла или записи в БД?

---

← →
Rumba   (2004-02-18 16:58) [2]


...
 if not OpenDialog1.Execute then Exit;
 try
   FileS := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
   FieldByName("DESC")???? - что тут написать?
 finally
   FileS.Free;
 end;
...


---

← →
Rumba   (2004-02-18 17:18) [3]

Ау? как считать?

---

← →
Johnmen ©   (2004-02-18 17:22) [4]

Ты же уже считал...:)

---

← →
Rumba   (2004-02-18 17:24) [5]

:)
ну а как его в поле сохранить с переносом строк?

---

← →
Delirium ©   (2004-02-18 17:33) [6]

F1 + TBLOBField

---

← →
Rumba   (2004-02-18 17:50) [7]


procedure Tdm.aOpenFileExecute(Sender: TObject);
var FileS: TFileStream;
   FieldS: TFIBBlobStream;
begin
 if not OpenDialog1.Execute then Exit;
 try
   FileS := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
   FieldS := dsScheme.CreateBlobStream(dsScheme.FieldByName("DESC"), bmReadWrite); //!!!!!!!! error - Incompatible types:TFIBBlobStream and TStream
   with dsScheme do
   begin
     if State in [dsBrowse] then Edit;
     try
       FieldS.CopyFrom(FileS, FileS.Size);
       Post;
     finally
       FieldS.Free;
     end
   end;
 finally
   FileS.Free;
 end;
end;


---

← →
Delirium ©   (2004-02-18 18:25) [8]

А так не проще ?
...
TBLOBField(FieldByName("DESC")).LoadFromFile("...");
...

---

← →
Rumba   (2004-02-18 18:36) [9]


procedure Tdm.aOpenFileExecute(Sender: TObject);
begin
 if not OpenDialog1.Execute then Exit;
 with dm.dsScheme do
 begin
   if State in [dsBrowse] then Edit;
   TBLOBField(FieldByName("DESC")).LoadFromFile(OpenDialog1.FileName);
//    Post;
 end;
end;

пусто - ничего не пишет

---

← →
Delirium ©   (2004-02-18 18:40) [10]

Ничего не пишет и ошибок нет?! Сомневаюсь... кривые компаненты сталобыть, используй тогда TStringStream, что ещё посоветовать.

---

← →
Rumba   (2004-02-18 18:49) [11]

ошибок нету

---

← →
Delirium ©   (2004-02-18 18:54) [12]

var FileS: TFileStream;
   StringS: TStringStream;
...
FileS:=TFileStream.Create("...", fmOpenRead);
StringS:=TStringStream.Create("");
StringS.CopyFrom(FileS, 0);
...
FieldByName("...").AsString:=StringS.DataString;
...
Надёжнее варианта придумать сложно...

---

← →
Rumba   (2004-02-18 19:21) [13]

thanks

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.035 c