问题
How can I read a photo from an XMPP vcard (an avatar picture, which I think is in JPEG format) and display it in a Delphi TImage control?
The XMPP server sends this 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>
回答1:
The XML you posted does not contain the picture. It contains the SHA-1 hash of the picture's contents. You only get the hash, initially, in case you have already fetched that image once before, so you can display the cached version instead of requesting it anew.
If you don't have an image with that hash, then request a new vcard. When it arrives, read the PHOTO
element, if it's available. It may have two subelements, BINVAL
and TYPE
. BINVAL
will contain the Base-64-encoded version of the image, and TYPE
will contain the MIME type identifier for the image type, such as image/jpeg or image/png.
Decode the binary data and store it in a stream, such as TFileStream
or TMemoryStream
. Next, choose which TGraphic
descendant is appropriate for the kind of image you have. It might be TPngImage
, or it might be TBitmap
. Instantiate the class, and tell it to load the stream's contents. It would go something like this:
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;
The code above uses the Base64Decode
function from OmniXML, described in the answer to Saving a Base64 string to disk as a binary using Delphi 2007. Once you have the TGraphic
value, you can assign it to a TImage
or do whatever else you can do with TGraphic
s.
The ChooseGraphicClass
function might work like this:
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;
来源:https://stackoverflow.com/questions/1366423/how-do-you-display-an-xmpp-jabber-vcard-photo-in-delphi