|
ｿｽｿｽDelphi Q & Aｿｽfｿｽｿｽｿｽｿｽ
|
DBGridｿｽｿｽmemoｿｽ^ｿｽ¥ｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/24(ｿｽｿｽ) 09:55:28
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。
D2007ｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽLｿｽﾌｿｽｿｽ[ｿｽ`ｿｽｿｽｿｽiDBGridｿｽｿｽmemoｿｽｿｽｿｽﾚゑｿｽ1ｿｽsｿｽﾚゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽｿｽｿｽAD2010ｿｽﾅは「ｿｽｿｽｿｽｿｽｿｽﾈクｿｽｿｽｿｽXｿｽ^ｿｽLｿｽｿｽｿｽXｿｽgｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
tblｿｽｿｽmemoｿｽｿｽｿｽﾚゑｿｽOnGetTextｿｽﾅ呼ゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
Procedurebin_GridLowDisplay(Sender:TField;varText:String;DisplayText:Boolean);
var
BlobMemo:TBlobStream;
SL:TStringList;
begin
BlobMemo:=TBlobStream.Create(TBlobField(Sender),bmRead);ｿｽ@ｿｽｿｽｿｽGｿｽｿｽｿｽ[
SL:=TStringList.Create;
SL.LoadFromStream(BlobMemo);
ifSL.Count>0then
Text:=SL[0];
BlobMemo.Free;
SL.Free;
end;
ｿｽｿｽｿｽ`ｿｽｿｽ 2009/11/24(ｿｽｿｽ) 18:58:27
ifSenderisTBlobFieldthenbegin
BlobMemo:=TBlobStream.Create(SenderasTBlobField,bmRead);
...
ｿｽﾆゑｿｽｿｽﾄみゑｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/25(ｿｽｿｽ) 04:24:22
ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄダｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽcｿｽB
maru3 2009/11/25(ｿｽｿｽ) 10:05:04
BlobMemo:=Tableｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ.TBlobStream.Create(TBlobField(Sender),bmRead);
---
ｿｽﾅは？
ｿｽﾜゑｿｽｿｽﾍ IBXｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽE
DBGridｿｽｿｽMemoｿｽｿｽｿｽﾚゑｿｽ
procedureTForm1.IBTableｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽGetText(Sender:TField;varText:string;
DisplayText:Boolean);
var
BlobMemo:TStream;
SL:TStringList;
begin
BlobMemo:=IBTable.CreateBlobStream(IBTable.FieldByName('ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽ'),bmRead);
SL:=TStringList.Create;
SL.LoadFromStream(BlobMemo);
ifSL.Count>0then
Text:=SL[0];
BlobMemo.Free;
SL.Free;
end;
2007ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽE2010ｿｽﾍ環具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽB
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/25(ｿｽｿｽ) 11:19:00
1ｿｽﾄはコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄダｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽiTBlobStreamｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子ｿｽj
2ｿｽﾄはゑｿｽｿｽﾜゑｿｽｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽmemoｿｽ^ｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽ30ｿｽﾂゑｿｽｿｽｿｽAｿｽﾈゑｿｽﾆゑｿｽｿｽｿｽｿｽﾊｿｽｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽB
maru3 2009/11/25(ｿｽｿｽ) 11:39:15
var
BlobMemo:TStream;<---
SL:TStringList;
begin
BlobMemo:=Tableｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ.TStream.Create(TBlobFieldSender),bmRead);
TBlobStream--->TStreamｿｽEｿｽEｿｽEｿｽﾅは？
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/25(ｿｽｿｽ) 12:08:27
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾅゑｿｽｿｽB
Tableｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ.TStreamｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾛむぽゑｿｽ 2009/11/26(ｿｽｿｽ) 13:46:26
ｿｽﾄ２ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、
>BlobMemo:=IBTable.CreateBlobStream(IBTable.FieldByName('ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽ'),bmRead);
ｿｽ@ｿｽｿｽ
BlobMemo:=IBTable.CreateBlobStream(IBTable.FieldByName(Sender.FieldName),bmRead);
ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽﾈゑｿｽｿｽﾌ？
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/26(ｿｽｿｽ) 14:34:53
E2076ｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ呼び包ｿｽｿｽﾍクｿｽｿｽｿｽXｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ場合ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽﾆコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ 2009/11/27(ｿｽｿｽ) 08:48:08
ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽiｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅゑｿｽjｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾉ提示ゑｿｽｿｽﾄみゑｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/27(ｿｽｿｽ) 09:02:50
>ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽiｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅゑｿｽjｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾉ提示ゑｿｽｿｽﾄみゑｿｽｿｽｿｽH
ｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
//ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ1ｿｽsｿｽﾚゑｿｽGridｿｽ¥ｿｽｿｽ
Procedurebin_GridLowDisplay(Sender:TField;varText:String;DisplayText:Boolean);
var
BlobMemo:TBlobStream;
//BlobMemo:TStream;
SL:TStringList;
begin
BlobMemo:=TABSQuery.CreateBlobStream(TABSQuery.FieldByName(Sender.FieldName),bmRead);
SL:=TStringList.Create;
SL.LoadFromStream(BlobMemo);
ifSL.Count>0then
Text:=SL[0];
BlobMemo.Free;
SL.Free;
end;
ｿｽGｿｽｿｽｿｽ[ｿｽﾌ鯉ｿｽｿｽｿｽ 2009/11/27(ｿｽｿｽ) 11:04:06
>TABSQuery
ｿｽｿｽｿｽｿｽﾍクｿｽｿｽｿｽXｿｽ^ｿｽﾌ趣ｿｽｿｽﾊ子ｿｽｿｽｿｽｿｽﾋ。ｿｽGｿｽｿｽｿｽ[ｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽB
ｿｽNｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽﾌ趣ｿｽｿｽﾊ子ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/11/27(ｿｽｿｽ) 11:56:00
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽmｿｽｿｽｿｽﾅ会ｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽOｿｽqｿｽﾌコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅなゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、
ｿｽｿｽｿｽsｿｽｿｽｿｽﾉ「ｿｽhbikou_memo(ｿｽｿｽｿｽﾝゑｿｽｿｽｿｽﾍゑｿｽｿｽﾌ搾ｿｽｿｽﾚ厄ｿｽ)ｿｽhｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽvｿｽｿｽEDatabaseErrorｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈにゑｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄまゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
Procedurebin_GridLowDisplay(Sender:TField;varText:String;DisplayText:Boolean);
var
BlobMemo:TStream;
ABSTable:TABSQuery;
SL:TStringList;
begin
ABSTable:=TABSQuery.Create(Sender);
BlobMemo:=ABSTable.CreateBlobStream(ABSTable.FieldByName(Sender.FieldName),bmRead);
SL:=TStringList.Create;
SL.LoadFromStream(BlobMemo);
ifSL.Count>0then
Text:=SL[0];
BlobMemo.Free;
SL.Free;
ABSTable.Free;
end;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ 2009/11/27(ｿｽｿｽ) 12:28:27
ｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾍ本ｿｽlｿｽﾈ外ｿｽmｿｽｿｽRｿｽｿｽﾈゑｿｽｿｽB
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾚ厄ｿｽｿｽｿｽｿｽｿｽｿｽﾌ茨ｿｽﾂゑｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅよくｿｽﾄ確ｿｽFｿｽｿｽｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾌ？
ｿｽｿｽｿｽｿｽﾍ難ｿｽｿｽR 2009/11/27(ｿｽｿｽ) 12:41:02
>ABSTable:=TABSQuery.Create(Sender);
ｿｽｿｽｿｽﾌ行ｿｽｿｽｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽﾌは難ｿｽｿｽｿｽｿｽｿｽOｿｽB
ｿｽ成ｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾌｿｽｿｽmｿｽﾉは搾ｿｽｿｽﾚなど会ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽc
maru3 2009/11/27(ｿｽｿｽ) 14:57:42
IBXｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽE
DBGridｿｽｿｽMemoｿｽｿｽｿｽﾚゑｿｽ
procedureTForm1.IBTableｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽGetText(Sender:TField;varText:string;DisplayText:Boolean);
var
BlobMemo:TStream;
SL:TStringList;
begin
BlobMemo:=<ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽHTableorSQL>.CreateBlobStream(<ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽHTableorSQL>.FieldByName(Sender.FieldName),bmRead);
//BlobMemo:=IBTable.CreateBlobStream(IBTable.FieldByName(Sender.FieldName),bmRead);ｿｽｿｽｿｽｿｽTableｿｽﾅテｿｽXｿｽg
SL:=TStringList.Create;
SL.LoadFromStream(BlobMemo);
ifSL.Count>0then
Text:=SL[0];
BlobMemo.Free;
SL.Free;
end;
ｿｽｿｽｿｽｿｽｿｽｿｽMemoｿｽｿｽｿｽﾚゑｿｽGetTextｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅはゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽHｿｽEｿｽHｿｽEｿｽHｿｽE
D2007+XP
ｿｽﾆりあｿｽｿｽｿｽｿｽ 2009/11/29(ｿｽｿｽ) 22:00:45
>Procedurebin_GridLowDisplay(Sender:TField;varText:String;DisplayText:Boolean);
ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽﾉゑｿｽｿｽｿｽﾎ厄ｿｽｿｽﾍゑｿｽｿｽﾗて会ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ、
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅはマｿｽYｿｽCｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌ？
ｿｽｿｽｿｽｿｽｿｽ謔ｵ 2009/12/02(ｿｽｿｽ)13:22:18
ｿｽｿｽｿｽﾓ鯉ｿｽｿｽQｿｽlｿｽﾉ色ｿｽXｿｽｿｽｿｽﾗて会ｿｽｿｽLｿｽﾅ具ｿｽｿｽﾊ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
AbsoluteDatabaseｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽTABSBLOBStreamｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾆなゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
Procedurebin_GridLowDisplay(Sender:TField;varText:String;DisplayText:Boolean);
var
BlobMemo:TABSBLOBStream;
SL:TStringList;
test,test2:String;
begin
ifSenderisTMemoFieldthenbegin
BlobMemo:=TABSBLOBStream.Create(TBlobField(Sender),bmRead);ｿｽ@
SL:=TStringList.Create;
SL.LoadFromStream(BlobMemo);
ifSL.Count>0then
Text:=SL[0];
BlobMemo.Free;
SL.Free;
end;
end;
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
