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

Вниз

Картинка в BLOB поле   Найти похожие ветки 

 
Дмитрий757567   (2002-07-25 18:57) [0]

После выполнения этой процедуры поле по прежнему имеет значение NULL. Хотя по загрузки сети явно видно что данные улетают на сервер. В чём дело?


void __fastcall TForm1::Button3Click(TObject *Sender)
{
Query2->Close();
Query2->SQL->Text = "Update PermanentPass set Photo = :photo where Passid = 1" ;
TMemoryStream *ms = new TMemoryStream;
Image1->Picture->Bitmap->SaveToStream(ms);
ms->Position = 0;
Query2->ParamByName("photo")->DataType = ftBlob ;
Query2->ParamByName("photo")->ParamType = ptInput ;
Query2->ParamByName("photo")->SetBlobData(ms->Memory, ms->Size);
Query2->ExecSQL();
delete ms;
}


 
Suntechnic ©   (2002-07-25 19:18) [1]

Сделай лучше так:
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Query2->Close();
Query2->SQL->Text = "Update PermanentPass set Photo = :photo where Passid = 1" ;
TMemoryStream *ms = new TMemoryStream;
Image1->Picture->Bitmap->SaveToStream(ms);
Query2->ParamByName("photo")->LoadFromStream( Stream,ftBlob);
Query2->ExecSQL();
delete ms;
}




 
SuMaga ©   (2002-07-25 21:41) [2]

э как занесло сишника !!!
вообщето вариантов туева туча !!
тока все они на делхи (не обессудьте си не знаю)


 
Дмитрий757567   (2002-07-26 09:55) [3]

>Suntechnic
я так тоже пробовал. Может MSSQL2000 не адекватно себя ведёт?



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
7-48322
andrewalx
2002-05-31 14:42
2002.08.15
возврат S_FALSE


3-47988
Daniil
2002-07-26 16:05
2002.08.15
Как сохранить variant array


8-48215
Mix
2002-04-10 18:15
2002.08.15
DelphiX ----------------------------------DX3D


1-48034
V.Turecky
2002-08-03 20:09
2002.08.15
Меню.Enabled:=false???


1-48108
Smok_er
2002-08-05 13:49
2002.08.15
Событие, возникающее в момент, когда окно становится неактивным