delphi a PHP

[rubenlalo]

Buenas Buenas a todos del Club Delphi.

En alguna ocación encontre este codigo en el foro, este algoritmo recupera el archivo almacenado en forma de cadena de texto (Hexadecimal), lo que quisiera es que me ayuden a convertir el algoritmo a codigo PHP. :eek:

procedure TfrmCompanies.proStrToBin (img: String; Str: String);
var
Stream: TFileStream;
i: integer;
b: integer;
begin
Stream:= TFileStream.Create (img, fmCreate);
try
i:= 1;
while i < Length (Str) do begin
if TryStrToInt ('$' + Copy (Str, i, 2), b) then begin
Stream.Write (b, 1);
end else
Exit;
Inc (i, 2);
end;
finally
Stream.Free;
end;
end;


Gracias de antemano por su ayuda espero me puedan ayudar pronto
Bye bye....