文件可以以FTP方式存储在服务器上,通过FTP上传和下传
解决方案 »
- [号外:放分了]散分,多事的2008年已过去,迎接新的2009年
- 初学delphi开发B/s过程中的问题,
- 如何在主应用程序的窗口中调用自已写的DLL中的Frame?谢谢
- application.createform(Tform1,form1) 如果 TForm1是一個表中的某字段的內容,又怎樣搞呀?(在線等待中......)
- if.....else....的用法???
- 低手问高手:这样的类怎样写?
- 商业软件与自编软件连接的问题?
- delphi 如何禁止应用访问网络
- 为什么在formclose中加入确定退出代码后,按确定没反应,按取消倒退出了?
- 关于考勤系统?
- 请问:这是怎么回事?
- 多层高手请看:李维的书上在讨论开发三层的应用服务器效率时讲到两个名词:DCOM应用服务器和Socket应用服务器,这个说法对吗?
可是只能存bmp呀
graphic1:=Tgraphic.Create;graphic1.LoadFromFile(openpicturedialog1.filename);
table1.Edit;
table1.FieldByName('picture').assign(graphic1);
table1.post;// 出错
graphic1.free;
TBlobField( table1.FieldByName( 'picture' ) ).LoadFromFile( OpenPictureDialog1.FileName );
或者用TBlobStream,不过不如这个好用,看看帮助吧。
我用了你的方法,可是当我存一个*.ico文件时 出错:bitmap image is not valid
至于Blob的大小,如果你用Post方式保存的话,应该不能超过32K,BDE中设置的。你可以用下列方法:
var Query1: TQuery;
// 略去了创建过程
Query1.SQL.Text := 'update people set photo=:photo where id='+ID;
Query1.Params[0].LoadFromFile( sFileName, ftBlob ); // 注意ftBlob可能要换成其它的值
Query1.ExecSQL;
是通过ado连接的,但是如果是用Ttable或Tquery 受长度限制!!!!procedure TForm1.Button1Click(Sender: TObject);
varbitmap:Tbitmap;begin
if openpicturedialog1.Execute then
image1.picture.loadfromfile(openpicturedialog1.filename);Bitmap:=TBitmap.create;
Bitmap.Height:=image1.Picture.height;
Bitmap.Width :=image1.Picture.Width; //Icono.Width;
Bitmap.Canvas.Draw(0, 0,image1.Picture.Graphic);adotable1.Edit;
TBlobField( adotable1.FieldByName( 'picture' ) ).assign(BITMAP);
adotable1.post;bitmap.freeend;