把图片保存到服务器的文件夹上

Question

请问如何实现，才方便保存与读取？

Answer 1

若是局域网，可共享文件夹。。若是INTERNET，可FTP

Answer 2

sql server 2005 字段类型为 image delphi使用的单元为jpeg, db, dbtables;delphi 存储图片代码片段procedure TForm1.btnPostClick(Sender: TObject);
var
  lMemoStream : TMemoryStream;
  jpg : TJpegImage;
begin
  lMemoStream := TMemoryStream.Create;
  jpg := TJpegimage.Create;
  jpg.Assign(Img.Picture.Graphic);
  jpg.SaveToStream(lMemoStream);
  lMemoStream.Position := 0;
  TBlobField(dm1.adoqrytea.fieldbyname('image')).LoadFromStream(lMemoStream);
  dm1.adoqrytea.Post;
end;delphi从数据库读取到image中的代码片段procedure TForm3.FormShow(Sender: TObject);
var 
  MyJPEG : TJPEGImage;
  MS : TMemoryStream;
begin
  MyJPEG:=TJPEGImage.Create;
  MS:=TMemoryStream.Create;
  if not dm1.adostuview.Active then
     dm1.adostuview.Open;
  with dm1.adostuview do
  begin
    TBlobField(dm1.adostuview.Fields[9]).SaveToStream(MS);
    ms.Position := 0;
    MyJPEG.LoadFromStream(MS);
    Img.picture.assign(MyJPEG);
    MyJPEg.free;
    MS.free;
  end;
end;

Answer 3

做FTP服务器,再根据用户的权限来确定上传文件即可

Answer 4

是ftp+indy来实现么？明天试一下看看。