سلام
یک ماه به جمع شما دوستان پیوستم و یک ماهه که دارم جستجو می کنم اما مشکلم حل نشد. یه برنامه برای دبیرخانه نوشتم و با این دستور اطلاعاتم رو داخل بانک sql2005 ذخیره می کنم:
var
str,id1,id2,id3,id4,id5:string;
begin
if tag=1 then
begin
str:= 'INSERT INTO [Database].[dbo].[QRecive]([Radif],[LetterDate],[LetterNo],[Title],[Attach], '+
'[RegisterDate],[BayganiDate],[TextFrom],[TextTo],[TextTabaghe],[TextVaziyat], '+
'[TextMahalBaygani],[PaperNo],[Link]) '+
'VALUES ('+Edit1.Text+','+QuotedStr(MaskEdit1.Text)+','+Qu otedStr(Edit2.Text)+','+
''+QuotedStr(Edit3.Text)+','+QuotedStr(Edit4.Text) +','+QuotedStr(MaskEdit2.Text)+', '+
''+QuotedStr(MaskEdit3.Text)+','+id1+','+id2+','+
''+id3+','+id4+','+id5+','+Edit5.Text+','+Edit6.Te xt+')';
. می خوام همراه این اطلاعات عکس نامه هم در همون رکورد ذخیره بشه. با توجه به راهنماییهای که در سایت دیدم خواستم از دستور زیر استفاده کنم که نشد از اساتید عزیز خواهشمندم جهت حل این مشکل راهنمایی لازم رو از بنده دریغ نکنند.
var
Stream:TStream;
begin
dm.QRecive.Edit;
dm.QRecive.Insert;
Stream := dm.QRecive.CreateBlobStream(dm.QReciveImage, bmWrite);
try
Image1.Picture.Graphic.SaveToStream(Stream);
finally
Stream.Free;
end;
end;
پاسخ با نقل قول