Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

Картинка в 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
3-47957
grandad
2002-07-26 10:31
2002.08.15
Нужно поставить прогу, работающую с БД accesss (mdb) от MS Office


1-48132
PONTIY
2002-08-01 11:40
2002.08.15
Проверка каталога на существование


1-48025
V.Turecky
2002-08-03 15:33
2002.08.15
Идентификация LoadFromResourceName.


14-48247
sonechka
2002-07-18 15:43
2002.08.15
Проблема с загрузкой компьютера. Помогите!!!


14-48286
BKV
2002-07-19 12:21
2002.08.15
Как скрыть IP адрес?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский