تبدیل Image به base64 و برعکس

[baran_2005]

سلام
کد زیر گذاشتنم اینکد درست کار میکنه ولی دیکد بدون خطا و کاری انجام نمیده . میتونید راهنماییم کنید ؟





uses Soap.EncdDecd
function EncodeFile(const FileName: string): AnsiString;
var
stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
try
stream.LoadFromFile(Filename);
result := EncodeBase64(stream.Memory, stream.Size);

finally
stream.Free;
end;
end;

function DecodeFile(const FileName: AnsiString): AnsiString;
var
stream: TMemoryStream;
size:integer;
begin
stream := TMemoryStream.Create;
stream.Position:= 0;
try
size:=sizeof(DecodeBase64(FileName));

stream.Write(DecodeBase64(FileName), size);

form1.image1.Picture.Bitmap.LoadFromStream(stream) ;
finally
stream.Free;
end;
end;

procedure TForm1.EncodeButton1Click(Sender: TObject);
begin
str:= EncodeFile('d:\pic.jpg');
end;

procedure TForm1.DecodeButton2Click(Sender: TObject);
begin
DecodeFile(str);
end;

[baran_2005]

اینم دیکد فقط تو فایل ذخیره میشه بازم بهتر از هیچی البته من خیلی وقت نزاشتم





procedure DecodeToFile(const base64: AnsiString; const FileName: string);
var
stream: TFileStream;
bytes: TBytes;
begin
bytes := DecodeBase64(base64);
stream := TFileStream.Create(FileName, fmCreate);
try
if bytes<>nil then
stream.Write(bytes[0], Length(Bytes));
finally
stream.Free;
end;
end;