DelphiでXMPP（Jabber）vcard写真をどのように表示しますか？

Question

XMPP vcard（JPEG形式のアバター画像）から写真を読み込み、それをDelphiのTImageコントロールに表示するにはどうすればよいですか？

XMPPサーバーは、このXMLを送信します。

<presence id="e3T50-75" to="cvg@esx10-2022/spark" from="semra@esx10-2022" 
type="unavailable"> 
    <x xmlns="vcard-temp:x:update"> 
    <photo>897ce4538a4568f2e3c4838c69a0d60870c4fa49</photo> 
    </x> 
    <x xmlns="jabber:x:avatar"> 
    <hash>897ce4538a4568f2e3c4838c69a0d60870c4fa49</hash> 
    </x> 
</presence> 

Answer 1

あなたがポストされたXMLは、画像が含まれていません。それは画像の内容のSHA-1 hashを含んでいます。一度そのイメージを取り込んでしまった場合に備えて、ハッシュを最初に取得するだけです。新しいバージョンをリクエストする代わりに、キャッシュされたバージョンを表示することができます。

ハッシュの画像がない場合は、新しいvcardをリクエストしてください。到着したら、PHOTO要素があればそれを読んでください。それは2つのサブ要素、BINVALとTYPEを持つかもしれません。 BINVALには、イメージのBase-64エンコードバージョンが含まれ、TYPEには、image/jpegまたはimage/pngなど、イメージタイプのMIMEタイプ識別子が含まれます。

バイナリデータをデコードし、TFileStreamまたはTMemoryStreamなどのストリームに格納します。次に、あなたが持っているイメージの種類にふさわしい子孫TGraphicを選択します。それはTPngImage、またはTBitmapかもしれません。クラスをインスタンス化し、ストリームの内容をロードするように指示します。上記のコードはSaving a Base64 string to disk as a binary using Delphi 2007への答えで説明OmniXMLからBase64Decode機能を使用しています

function CreateGraphicFromVCardPhoto(const BinVal, MimeType: string): TGraphic; 
var 
    Stream: TStream; 
    GraphicClass: TGraphicClass; 
begin 
    Stream := TMemoryStream.Create; 
    try 
    if not Base64Decode(BinVal, Stream) then 
     raise EBase64Decode.Create; 
    Stream.Position := 0; 
    GraphicClass := ChooseGraphicClass(MimeType); 
    Result := GraphicClass.Create; 
    try 
     Result.LoadFromStream(Stream); 
    except 
     Result.Free; 
     raise; 
    end; 
    finally 
    Stream.Free; 
    end; 
end; 

：それはこのような何かを行くだろう。 TGraphicの値を取得したら、TImageに割り当てるか、TGraphicでできることを実行します。

ChooseGraphicClass機能は次のように動作するかもしれません：

function ChooseGraphicClass(const MimeType: string): TGraphicClass; 
begin 
    if MimeType = 'image/bmp' then 
    Result := TBitmap 
    else if MimeType = 'image/png' then 
    Result := TPngImage 
    else if MimeType = 'image/gif' then 
    Result := TGifImage 
    else if MimeType = 'image/jpeg' then 
    Result := TJpegImage 
    else 
    raise EUnknownGraphicFormat.Create(MimeType); 
end;