Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Blob + XML   Найти похожие ветки 

 
Octav   (2002-07-05 16:39) [0]

Var
s : TStream;
bm : TMemoryStream;
jp : TJpegImage;
bs : TBlobSTream;
cl : TClientDataSet;
.
.
.
Image1.Picture.LoadFromFile("d:\1.bmp");
Jp:=TJpegImage.Create;
Jp.Assign(Image1.Picture.Bitmap);
Bm:=TMemoryStream.Create;
Jp.SaveToStream(Bm);
Bm.Seek(0,0);

cl.Open;
cl.Insert;
cl.FieldByName("Num").AsString := Edit1.Text;
cl.FieldByName("Pren").AsString := Edit2.Text;
s := t.CreateBlobStream(cl.FieldByName("Foto"),bmReadWrite);
s.CopyFrom(bm,bm.Size);
cl.Post;
cl.Close;
cl.Open;
cl.SaveToFile("d:\test.xml");
cl.Close;
Bm.Free;
Jp.Free;

Помагите, please, foto не ставится в XML. Где ошибка?
Или как по другому зделать?
Thks.


 
Kors ©   (2002-07-08 09:44) [1]

TBLOBField(cl.FieldByName("foto")).LoadFromStream(bm);



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

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
1-95366
neodiX
2002-07-15 19:38
2002.07.29
Active window


3-95205
RDA
2002-07-06 20:05
2002.07.29
Динамический запрос


14-95493
Igorek
2002-06-30 20:16
2002.07.29
Какая боль, какая боль, Бразилия-Германия 2:0!!!


8-95457
Дмитрий Катаев
2002-01-26 19:12
2002.07.29
Реально ли на Delphi написать _конкурентноспособный_ трехмерный движок?


4-95610
KSergey
2002-05-22 15:37
2002.07.29
Из dll вызвать ф-цию в другой dll