Delphi DBExpress 保存圖像到MySQL數據庫


procedure TForm1.Button1Click(Sender: TObject);
var
    stream: TFileStream;
begin
    SQLQuery1.SQL.Text := 'INSERT INTO t_user(UserName,`img`) VALUES (:UserName, :img)';
	SQLQuery1.ParamByName('UserName').AsString := '孫悟空';
    stream :=  TFileStream.Create('c:\\aa.png', fmShareDenyWrite); // 以只讀模式打開圖片文件
	SQLQuery1.ParamByName('img').LoadFromStream(stream, ftBlob);
	SQLQuery1.ExecSQL();
	stream.Free();
end;

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章