|
ｿｽ@ｿｽｿｽｿｽTｿｽ[ｿｽoｿｽﾉゑｿｽｿｽｿｽ鞫懶ｿｽｿｽDelphiｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽﾜゑｿｽｿｽ 2005/02/14(ｿｽｿｽ) 16:38:43
ｿｽTｿｽ[ｿｽoｿｽﾌ抵ｿｽｿｽﾉゑｿｽｿｽｿｽ鞫懶ｿｽfｿｽ[ｿｽ^ｿｽｿｽDelphiｿｽｿｽTImageｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽBｿｽB
ｿｽTｿｽ[ｿｽoｿｽﾆは接托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
Delphiｿｽｿｽ2005ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽ[ｿｽoｿｽﾉゑｿｽOracle9iｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾃらいｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
... 2005/02/14(ｿｽｿｽ) 17:33:52
http://otn.oracle.co.jp/forum/index.html
ｿｽｿｽﾜゑｿｽｿｽ 2005/02/14(ｿｽｿｽ) 18:24:29
Oracleｿｽﾅ画像ｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽHｿｽHｿｽH
ADOｿｽｿｽgｿｽｿｽｿｽｿｽDelphiｿｽｿｽOracleｿｽﾍ接托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽ 2005/02/14(ｿｽｿｽ) 19:30:42
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
Oracleｿｽﾅ管暦ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽじゑｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽﾜゑｿｽｿｽ 2005/02/15(ｿｽｿｽ) 13:59:07
ｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽOracleｿｽﾅ管暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ鞫懶ｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽOracleｿｽﾅどゑｿｽｿｽｿｽｿｽｿｽﾄ管暦ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽH
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽDelphiｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽﾌゑｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ鞫懶ｿｽﾍ搾ｿｽｿｽﾍサｿｽ[ｿｽoｿｽﾅはなゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽDelphiｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽB
ｿｽｿｽｿｽﾈ外ｿｽﾌ人ｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでどゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽc
HOta 2005/02/15(ｿｽｿｽ) 14:07:57
Oracleｿｽﾌデｿｽ[ｿｽ^ｿｽ[ｿｽ^ｿｽｿｽBLOBｿｽ^ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ型ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽ鞫懶ｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾈ型ｿｽﾌ保托ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
BLOBｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽﾜゑｿｽｿｽ 2005/02/23(ｿｽｿｽ) 14:54:39
ｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾗて趣ｿｽｿｽｿｽｿｽﾈゑｿｽﾉゑｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾅは、ｿｽhｿｽｿｽｿｽｿｽｿｽﾈクｿｽｿｽｿｽXｿｽ^ｿｽLｿｽｿｽｿｽXｿｽgｿｽhｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽBｿｽB
// BLOB ｿｽｿｽｿｽﾚに保托ｿｽｿｽｿｽｿｽｿｽｿｽ
procedure TForm1.Button1Click(Sender: TObject);
var
Ime1: TBitmap;
Strm: TBlobStream;
begin
ADOQuery1.Active:=True;
ADOTable1.Active:=True;
Ime1:=Image1.Picture.Bitmap;
ADOTable1.Edit;
ADOTable1.Insert;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TBlobStream.Create(TBlobField(ADOTable1.FieldByName('GAZOU')), bmWrite);
try
{ BITMAP ｿｽfｿｽ[ｿｽ^ｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ保托ｿｽ }
Ime1.SaveToStream(Strm);
ADOTable1.Post;
finally
Strm.Free;
Ime1.Free;
end;
end;
HOta 2005/02/24(ｿｽｿｽ) 09:08:02
TBlobStreamｿｽｿｽTADOBlobStreamｿｽﾉ変ゑｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ADOQuery1ｿｽｿｽADOTable1ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽ轤ｩｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽﾜゑｿｽｿｽAEditｿｽｿｽInsertｿｽﾍ難ｿｽｿｽｿｽｿｽﾉ使ｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
Delphi FAQｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽB
//TBlobStreamｿｽﾍ必ｿｽｿｽTable.EditｿｽｿｽｿｽｿｽｿｽｿｽCreateｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎならずｿｽA
//Table.Postｿｽﾌ前ｿｽﾜでゑｿｽFreeｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
var
Ime1: TBitmap;
ID : Integer;
Strm: TADOBlobStream;
begin
ADOTable1.Active:=True;
Ime1:=Image1.Picture.Bitmap;
ADOTable1.Insert;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMAGE')), bmWrite);
try
{ BITMAP ｿｽfｿｽ[ｿｽ^ｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ保托ｿｽ }
Ime1.SaveToStream(Strm);
//Strmｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽA
//ADOTable1.FieldByName('IMAGE').Assign(Image1.Picture);
Strm.Free;
Ime1.Free;
ADOTable1.Post;
finally
ADOTable1.Close;
end;
ｿｽｿｽﾜゑｿｽｿｽ 2005/02/24(ｿｽｿｽ) 09:40:27
ｿｽﾗゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜで抵ｿｽｿｽJｿｽﾉ指ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽOｿｽｿｽoｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽaｿｽkｿｽnｿｽaｿｽﾉ保托ｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽがｿｽAｿｽｿｽｿｽxｿｽﾍ画像ｿｽｿｽﾇみ搾ｿｽｿｽﾟまゑｿｽｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、ｿｽﾇみ搾ｿｽｿｽﾝにつゑｿｽｿｽﾄゑｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾅ暦ｿｽOｿｽﾈどは出ｿｽﾜゑｿｽｿｽｿｽB
ImageｿｽQｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽBｿｽB
// BLOB ｿｽｿｽｿｽﾚに保托ｿｽｿｽｿｽｿｽｿｽ
procedure TForm1.Button1Click(Sender: TObject);
var
Ima1: TBitmap;
ID:integer;
Strm: TADOBlobStream;
begin
ADOTable1.Active:=True;
Ima1:=Image1.Picture.Bitmap;
ADOTable1.Insert;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMAGE')), bmWrite);
try
{ BITMAPｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ保托ｿｽ }
Ima1.SaveToStream(Strm);
Strm.Free;
Ima1.Free;
ADOTable1.Post;
finally
ADOTable1.Close;
end;
end;
// BLOB ｿｽｿｽｿｽﾚゑｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽ
procedure TForm1.Button2Click(Sender: TObject);
var
Ima2: TBitmap;
ID:integer;
Strm: TADOBlobStream;
begin
ADOTable1.Active:=True;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMAGE')), bmRead);
try
{ BITMAPｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽ }
Ima2.LoadFromStream(Strm);
{ Image ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ表ｿｽｿｽ}
Image2.Picture.Assign(Ima2);
finally
Strm.Free;
Ima2.Free;
end;
end;
i 2005/02/25(ｿｽｿｽ) 11:08:37
http://delphi.about.com/od/database/l/aa030601a.htm
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/01(ｿｽｿｽ) 10:54:02
ｿｽｿｽｿｽｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌに申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、
ｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ況ゑｿｽｿｽｿｽｿｽPｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、
ｿｽﾇなゑｿｽｿｽｿｽｿｽaｿｽkｿｽnｿｽaｿｽfｿｽ[ｿｽ^ｿｽﾌ表ｿｽｿｽｿｽﾉつゑｿｽｿｽﾄ再度ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽか。
kkk 2005/03/01(ｿｽｿｽ) 11:14:08
Ima2: TBitmap;
ｿｽﾅ宣言ｿｽｿｽｿｽｿｽ
Ima2.Free;
ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ Ima2ｿｽﾍどゑｿｽｿｽﾅ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
TBitmap.CreateｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/01(ｿｽｿｽ) 13:01:31
ｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽTImageｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽlｿｽｿｽｿｽgｿｽｿｽﾛ托ｿｽｿｽﾆ表ｿｽｿｽｿｽpｿｽﾉ２ｿｽﾂ搾ｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾈゑｿｽﾆなゑｿｽTBitmap.Createｿｽﾍゑｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽBｿｽBｿｽB
ｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈゑｿｽﾆなゑｿｽ 2005/03/01(ｿｽｿｽ) 13:16:31
DB ｿｽﾌアｿｽvｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾉ、ｿｽNｿｽｿｽｿｽXｿｽﾌ奇ｿｽ{ｿｽｿｽﾗ具ｿｽｿｽｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾟ難ｿｽｿｽﾌようｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/01(ｿｽｿｽ) 14:47:44
Delphiｿｽﾌ奇ｿｽbｿｽｿｽｿｽｿｽｿｽﾜゑｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾔで、
ｿｽcｿｽaｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾌはよくｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾆまで趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽﾝなゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄばゑｿｽｿｽｿｽﾅ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽc
HOta 2005/03/01(ｿｽｿｽ) 15:31:23
ｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽｿｽJpegｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
//ｿｽﾛ托ｿｽ
procedure TForm1.Button7Click(Sender: TObject);
var
jpeg : TJPEGImage;
Ima1 : TBitmap;
ID : integer;
Strm : TADOBlobStream;
begin
jpeg := TJPEGImage.Create;
Ima1:= TBitmap.Create;
ADOTable2.Open;
jpeg.LoadFromFile(FNAME);
Ima1.Assign(jpeg);
ADOTable2.Edit;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable2.FieldByName('IMGDT')), bmWrite);
try
// BITMAPｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ保托ｿｽ
Ima1.SaveToStream(Strm);
//ｿｽ@ｿｽｿｽｿｽ
Freeandnil(Strm);
Freeandnil(jpeg);
Freeandnil(Ima1);
ADOTable2.Post;
finally
ADOTable2.Close;
end;
end;
//ｿｽ¥ｿｽｿｽ
procedure TForm1.Button6Click(Sender: TObject);
var
Ima2: TBitmap;
ID:integer;
Strm: TADOBlobStream;
begin
Ima2:= TBitmap.Create;
ADOTable2.Open;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable2.FieldByName('IMGDT')), bmRead);
try
{ Image ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ表ｿｽｿｽ}
Image2.Picture.Bitmap.LoadFromStream(Strm);
finally
Freeandnil(Strm);
Freeandnil(Ima2);
end;
end;
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/01(ｿｽｿｽ) 18:21:40
ｿｽｿｽｿｽﾂゑｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphi2005ｿｽﾅゑｿｽTJPEGImageｿｽﾍ対会ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ轤ｵｿｽｿｽｿｽA
ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾉ抵ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽcｿｽcｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
Ima1: TBitmap;
ID: integer;
Strm: TADOBlobStream;
begin
Ima1:= TBitmap.Create;
ADOTable1.Open;
Ima1.LoadFromFile('C:¥sotuken¥gazou.bmp');
ADOTable1.Edit;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMGDT')), bmWrite);
try
{ BITMAPｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ保托ｿｽ }
Ima1.SaveToStream(Strm);
Freeandnil(strm);
Freeandnil(Ima1);
ADOTable1.Post;
finally
ADOTable1.Close;
end;
end;
// BLOB ｿｽｿｽｿｽﾚゑｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽ
procedure TForm1.Button2Click(Sender: TObject);
var
Ima2: TBitmap;
ID:integer;
Strm: TADOBlobStream;
begin
Ima2:=TBitmap.Create;
ADOTable1.Open;
{ BLOB ｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ成 }
Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMGDT')), bmRead);
try
{ BITMAPｿｽｿｽXｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽ }
Image2.Picture.Bitmap.LoadFromStream(Strm);
{ Image ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ表ｿｽｿｽ}
finally
Freeandnil(Strm);
Freeandnil(Ima2);
end;
end;
HOta 2005/03/02(ｿｽｿｽ) 11:12:57
JPEGｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍ、JPEGｿｽｿｽｿｽjｿｽbｿｽgｿｽｿｽUsesｿｽﾉ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/02(ｿｽｿｽ) 16:33:43
JPEGｿｽｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
TADOTableｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾝ定がｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽ謔､ｿｽﾅ…
TADOCnnectionｿｽｿｽTDataSourceｿｽﾆは接托ｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾄ、
TADOConnectionｿｽｿｽOracleｿｽﾌ接托ｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽc
TADOTableｿｽｿｽTableNameｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾝ定しｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽhｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽｿｽhｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄばゑｿｽｿｽ閧｢ｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
HOta 2005/03/02(ｿｽｿｽ) 17:17:34
Oracle <-->TADOCnnection<-->TADOTable<-->TDataSource
ｿｽﾆ接托ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
TADOTableｿｽｿｽConnectionｿｽｿｽADOCnnection1ｿｽﾆゑｿｽｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
TDataSourceｿｽｿｽDataSetｿｽｿｽADOTableｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽATImageｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾈゑｿｽATDataSourceｿｽﾍ不ｿｽvｿｽﾅゑｿｽｿｽB
TDataControlｿｽﾉ接托ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉゑｿｽｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽAｿｽｿｽｿｽﾜで登ｿｽ^ｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽｿｽﾌでは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽ}ｿｽbｿｽR 2005/03/02(ｿｽｿｽ) 21:43:22
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽIｿｽOｿｽ黷ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽ[ｿｽfｿｽ[ｿｽXｿｽﾈのゑｿｽTDBImageｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽQｿｽOｿｽOｿｽTｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽcｿｽUｿｽﾅゑｿｽｿｽｿｽhttp://cc.borland.com/ccweb.exe/listing?id=17955ｿｽｿｽJPEGSupport now is "GraphicSuppport"ｿｽ導難ｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ。
ｿｽQｿｽOｿｽOｿｽTｿｽｿｽｿｽﾆ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽ}ｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽIｿｽOｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ轤ｲｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
HOta 2005/03/03(ｿｽｿｽ) 13:41:33
ｿｽﾅ擾ｿｽｿｽﾌ包ｿｽｿｽﾌ費ｿｽｿｽｿｽｿｽﾅ、TImageｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽ閧ｩｿｽｿｽAｿｽﾊスｿｽｿｽｿｽbｿｽhｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾌではと思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/03(ｿｽｿｽ) 14:01:55
ｿｽﾝなゑｿｽｿｽ発鯉ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphiｿｽﾌ厄ｿｽｿｽﾅはなゑｿｽｿｽﾄ、Oracleｿｽﾌ包ｿｽｿｽﾌ接托ｿｽｿｽｿｽｿｽｿｽ閧ｾｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽTableNameｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽﾉテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽIｿｽOｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽ竄ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽgｿｽnｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽOｿｽｿｽoｿｽﾈゑｿｽｿｽﾌに、ｿｽｿｽﾍゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
TableNameｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉは趣ｿｽｿｽｿｽｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅはでなゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾅ難ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾅ出ｿｽｿｽｿｽIｿｽｿｽﾂ能ｿｽﾈテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾌなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
HOta 2005/03/03(ｿｽｿｽ) 15:49:43
ｿｽOｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽAIMageｿｽｿｽBLOBFieldｿｽﾉ登ｿｽ^ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌは、BLOBFieldｿｽｿｽNullｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
IsNullｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅ抵ｿｽｿｽﾗてみまゑｿｽｿｽ蛯､ｿｽB
TableNameｿｽﾉ趣ｿｽｿｽｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽﾔ違いｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽｿｽﾌゑｿｽｿｽﾟゑｿｽIDEｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾅ出ｿｽﾈゑｿｽｿｽﾌは接托ｿｽｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾍ、Oraclｿｽﾌ様ｿｽｿｽRDBMSｿｽﾉ対ゑｿｽｿｽﾄ、TableｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽgｿｽｿｽｿｽﾌは、
ｿｽｿｽｿｽXｿｽ|ｿｽｿｽｿｽXｿｽｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽAｿｽﾙとゑｿｽﾇ使ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽﾜゑｿｽｿｽ 2005/03/04(ｿｽｿｽ) 15:33:50
ｿｽｿｽｿｽﾆの趣ｿｽｿｽｿｽｿｽﾆなゑｿｽAｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾜでで終ｿｽｿｽ轤ｹｿｽ驍ｱｿｽﾆになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾜでゑｿｽｿｽeｿｽﾘに具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽﾍでゑｿｽｿｽﾈゑｿｽｿｽﾜまになゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ`ｿｽcｿｽnｿｽﾉつゑｿｽｿｽﾄなゑｿｽ
ｿｽﾆてゑｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾗゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽHOtaｿｽｿｽｿｽｿｽAｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ黷ｩｿｽｿｽDelphiｿｽﾉつゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆ勉具ｿｽｿｽｿｽｿｽAｿｽ謦｣ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
