10-04-2009, 11:05 AM
10-04-2009, 04:15 PM
اظف هاتين الدالتين في كود برنامجك واستدعهما للتحويل
كود :
const
Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';
function Encode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := '';
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Ord(s[i]);
b := b * 256 + x;
a := a + 8;
while a >= 6 do
begin
a := a - 6;
x := b div (1 shl a);
b := b mod (1 shl a);
Result := Result + Codes64[x + 1];
end;
end;
if a > 0 then
begin
x := b shl (6 - a);
Result := Result + Codes64[x + 1];
end;
end;
function Decode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := '';
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Pos(s[i], codes64) - 1;
if x >= 0 then
begin
b := b * 64 + x;
a := a + 6;
if a >= 8 then
begin
a := a - 8;
x := b shr a;
b := b mod (1 shl a);
x := x mod 256;
Result := Result + chr(x);
end;
end
else
Exit;
end;
end;10-04-2009, 05:40 PM
10-04-2009, 07:52 PM
08-02-2012, 05:45 PM
08-02-2012, 08:47 PM
09-02-2012, 12:47 PM
09-02-2012, 06:48 PM
يبدو أنك نسيت دلفي تماما 
PHP كود :
procedure TForm1.sButton1Click(Sender: TObject);
begin
Edit2.Text := Base64Encode(Edit1.Text);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
S: string;
begin
Base64Decode(Edit2.Text, S);
Edit1.Text := S;
end;
10-02-2012, 07:16 PM