好家在,居然还真的是用Delphi写的: procedure TMainForm.LoadImgBtnClick(Sender: TObject); var Img, Output: String; var MS: TMemoryStream; var SS: TStringStream; begin if(not OD.Execute) then Exit; Img:=OD.FileName; MS:=TMemoryStream.Create; SS:=TStringStream.Create(''); MS.LoadFromFile(Img); MS.SaveToStream(SS); Output:=EncodeString(SS.DataString); with ReviewCDS do begin Edit; FieldByName('IMAGES').AsString:=Output; Post; end; MS.Destroy; SS.Destroy; end;
况且我这边是协作,我不是主要的。呵呵
procedure TMainForm.LoadImgBtnClick(Sender: TObject);
var Img, Output: String;
var MS: TMemoryStream;
var SS: TStringStream;
begin
if(not OD.Execute) then
Exit; Img:=OD.FileName;
MS:=TMemoryStream.Create;
SS:=TStringStream.Create(''); MS.LoadFromFile(Img);
MS.SaveToStream(SS); Output:=EncodeString(SS.DataString);
with ReviewCDS do
begin
Edit;
FieldByName('IMAGES').AsString:=Output;
Post;
end;
MS.Destroy;
SS.Destroy;
end;