كيف اقوم بقلب string 32 bit

[Agmcz]

السلام عليكم

بعض التعديلات إنطلاقا من الاجراء الذي وضعته

PHP كود :

function Swap(A: Integer): Integer;
asm
  {$IFDEF CPUX64}
  MOV EAX,ECX
  {$ENDIF !CPUX64}
  BSWAP EAX
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MS: TMemoryStream;
  P: Integer;
  FileSize: Integer;
  Buffer: array of Byte;
  sByte: string;
begin
  if not OpenDialog1.Execute then
    Exit;
  Edit1.Text := ExtractFileName(OpenDialog1.FileName);
  MS := TMemoryStream.Create;
  try
    MS.LoadFromFile(OpenDialog1.FileName);
    FileSize := MS.Size;
    SetLength(Buffer, FileSize);
    //MS.Position := 0; // B Position
    MS.Read(Buffer[0], FileSize);
    for P := 0 to 3 do
    begin
      sByte := sByte + IntToHex(Buffer[P], 2);
    end;
    sByte := IntToHex(Swap(StrToInt('$' + sByte)), 8);
    Memo1.Lines.Add(sByte);
  finally
    MS.Free;
  end;
end;