這個問題很困攏。請幫忙看一下了!!!!! 請問各路高手,諸候,如何把*.jpg圖片插入到mssqlserver數據庫當中,又用什麼方法把它取出來了最好有一個例子,我問了好多人了,結果不少但是成功的沒有。謝謝了。!!!!!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure Button1Click(Sender:TObject);var Query : TQuery; StringStream : TStringStream;begin StringStream := TStringStream.Create (’’); Memo.Lines.SaveToStream (StringStream); //在这里创建一个字符流 StringStream.Position := 0; Query := TQuery.Create(self); //在这里创建一个临时的Query Query.DatabaseName := Database.DatabaseName; with Query.SQL do begin Clear; Append (’INSERT INTO TEST’); Append (’(ID,CONTENT)’); //CONTENT是一个Image字段 Append (’VALUES (:ID, :CONTENT)’); end; with Query do begin ParamByName (’ID’).asInteger := StrToIntDef (edtID.Text,0); ParamByName (’CONTENT’).asBlob := StringStream.DataString; //就在这里赋值 end; StringStream.Free; //用完了马上Free掉 Database.StartTransaction; //开始事务控制 try Query.ExecSQL; //开始插入记录 Database.Commit; //提交事务 except Query.Free; //如果出错首先将Query Free掉 Database.RollBack; //回退事务 raise; //重新引发异常,以通知用户 end; Query.free;end; 动态生成树结合DBgird显示记录 DBGrid显示问题二? could not convert variant of type(null)into type(string)问题 关于winexec的问题 sql數據庫問題 delphi在调用ocx的时候函数的申明 为什么这里的帖子变这么少了? 设计模式讨论:关于Adapter模式 紧急求救!!各位大侠帮帮忙,一个关于乱码的问题! 怎样把*.ani图标放在程序里?使鼠标变样!谢谢! 东北还冷真冷,把我冻够呛的,冬天再也不来东北啦 请问如何将安装好在DELPHI5中的控件导出来.再在其它的DELPHI中安装上?
var
Query : TQuery;
StringStream : TStringStream;
begin
StringStream := TStringStream.Create (’’);
Memo.Lines.SaveToStream (StringStream); //在这里创建一个字符流
StringStream.Position := 0;
Query := TQuery.Create(self); //在这里创建一个临时的Query
Query.DatabaseName := Database.DatabaseName;
with Query.SQL do
begin
Clear;
Append (’INSERT INTO TEST’);
Append (’(ID,CONTENT)’); //CONTENT是一个Image字段
Append (’VALUES (:ID, :CONTENT)’);
end;
with Query do
begin
ParamByName (’ID’).asInteger := StrToIntDef (edtID.Text,0);
ParamByName (’CONTENT’).asBlob := StringStream.DataString; //就在这里赋值
end;
StringStream.Free; //用完了马上Free掉
Database.StartTransaction; //开始事务控制
try
Query.ExecSQL; //开始插入记录
Database.Commit; //提交事务
except
Query.Free; //如果出错首先将Query Free掉
Database.RollBack; //回退事务
raise; //重新引发异常,以通知用户
end;
Query.free;
end;