拡張子のないファイルをTbitmapでロードするには？

Question

アンドロイドの下で、ギャラリーから画像を選択すると、代わりに拡張子が付いたファイル名がuriではなく、contentproviderを使用してローカルディレクトリの1つにファイルをコピーする必要があります。

ファイルには拡張子がないので、Tbitmapオブジェクトにどのようにロードするのですか？私はしようとするが、私はエラーが表示されます：イメージを読み込むことはできません。

Answer 1

[OK]を私は次のようでした：

function DetectImageExtension(const aFileName: string): String; 
var aFileStream: TFileStream; 
    aFirstBytes: Tbytes; 
begin 
    aFileStream := TFileStream.Create(aFileName, fmOpenRead); 
    try 
    if aFileStream.Size < 8 then exit(''); 
    SetLength(aFirstBytes, 8); 
    aFileStream.ReadBuffer(aFirstBytes[0], length(aFirstBytes)); 
    if (aFirstBytes[0] = $FF) and 
     (aFirstBytes[1] = $D8) then result := 'jpg' // ÿØ 
    else if (aFirstBytes[0] = $89) and 
      (aFirstBytes[1] = $50) and 
      (aFirstBytes[2] = $4E) and 
      (aFirstBytes[3] = $47) and 
      (aFirstBytes[4] = $0D) and 
      (aFirstBytes[5] = $0A) and 
      (aFirstBytes[6] = $1A) and 
      (aFirstBytes[7] = $0A) then result := 'png' // .PNG.... 
    else if (aFirstBytes[0] = $47) and 
      (aFirstBytes[1] = $49) and 
      (aFirstBytes[2] = $46) then result := 'gif' // GIF 
    else if (aFirstBytes[0] = $42) and 
      (aFirstBytes[1] = $4D) then result := 'bmp' // BM 
    else result := ''; 
    finally 
    aFileStream.Free; 
    end; 
end;