如何實現圖像數據存入SQL SERVER數據庫 |
|
尚未結案
|
|
danielldf
一般會員   發表：44 回覆：60 積分：20 註冊：2003-05-12 發送簡訊給我 |
|
|
asupeduer
初階會員  發表：36 回覆：49 積分：27 註冊：2002-11-08 發送簡訊給我 |
你是要把圖像（整個檔案）放到SQL SERVER 資料庫裡面嗎？
如果是就這樣寫： object ADOConnection1 Connected = True
object tab: TADOTable Active = True Connection = ADOConnection1
object DataSource1: TDataSource
object open: TOpenDialog //將檔案存入資料庫image資料型態的程式
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TFileStream *fs;
TStream *s;
if( open->Execute() )
{
tab->Insert();
tab->FieldByName( "id")->AsInteger = random( 1000);
s=tab->CreateBlobStream( tab->FieldByName("uuu"), bmWrite );
s->Seek( 0, 0 );
fs=new TFileStream( open->FileName, fmOpenRead );
s->CopyFrom( fs, fs->Size );
fs->Free();
s->Free();
}
}
//將檔案輸出到c:\out.txt（副檔名你可以自己定） void __fastcall TForm1::Button2Click(TObject *Sender)
{
TFileStream *fs;
TStream *s;
tab->First();
s=tab->CreateBlobStream( tab->FieldByName("uuu"), bmRead );
s->Position=0;
fs=new TFileStream( "c:\\out.txt", fmCreate );
fs->Seek(0, 0);
fs->CopyFrom( s, s->Size );
fs->Free();
s->Free(); } //------------------------------------------------
我常在想,寫程式跟爬格子到底有什麼不同呢???????????
//------------------------------------------------
------
//------------------------------------------------ 我常在想,寫程式跟爬格子到底有什麼不同呢??????????? //------------------------------------------------ |
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
發表時間：2003-05-12 16:20:01
IP:218.16.xxx.xxx 未訂閱
系統時間：2024-05-18 7:50:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |