|
TTable을 이용해서 이미지를 저장 및 조회하는 것은 되는데...
TQuery를 이용해서 저장하려니까 잘 안되네요.
아래와 같이 시도했었는데...
저장이 제대로 안됐는지 조회할 때
EReadError : Stream Read Error가 발생하네요.
TStream *pStream = new TMemoryStream();
Query1->Close();
Query1->DatabaseName = "myDB";
Query1->SQL->Clear();
Query1->SQL->Add("Update myTable ");
Query1->SQL->Add(" set Photo = :Photo ");
Query1->SQL->Add(" where ApplyNo = :ApplyNo ");
Query1->ParamByName("ApplyNo")->AsString = Edit1->Text;
pStream->Position = 0;
DBImage1->Picture->Bitmap->SaveToStream(pStream);
pStream->Position = 0;
Query1->ParamByName("Photo")->LoadFromStream(pStream, ftBlob);
Query1->ExecSQL();
Query1->Close();
delete pStream;
|