救命呀，高手

Question

请问如何用delphi实现图片上传与存储,

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('e:\1.jpg' );
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
adoquery1.Insert ;
TBlobField(adoquery1.FieldByName('pop')).LoadFromStream(pic);
adoquery1.post;
pic.Free;
pjpg.free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  tempstream:TStringStream;
  tempjpeg:TJPEGImage;
begin
  try
    tempstream:=TStringStream.Create('');
    TBlobField(adoquery1.FieldByName('pop')).SaveToStream(tempstream);
    tempstream.Position:=0;
    tempjpeg:=TJPEGImage.Create;
    tempjpeg.LoadFromStream(tempstream);
    Image2.Picture.Bitmap.Assign(tempjpeg);
  finally
    tempstream.Free;
    tempjpeg.Free;
  end;
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
button2.Click   ;
end;

Answer 2

上传到目录最好还是用ftp控件