1,183
社区成员
发帖
与我相关
我的任务
分享
try
idhttp.Get(PICURL,imagestream);
except
showmessage('连接失败,不能获得图片!');
end;
imagestream.Position:=0;
if imagestream.Size = 0 then
begin
imagestream.Free;
ShowMessage('错误');
end;
imagestream.ReadBuffer(Buffer,2);
imagestream.Position:=0;
showmessage(IntToStr(Buffer));
if Buffer=$4D42 then
begin
ShowMessage('BMP');
end
else if Buffer=$D8FF then
begin
ShowMessage('JPG');
end
else if Buffer=$4947 then
begin
ShowMessage('GIF');
end
else if Buffer=$050A then
begin
ShowMessage('PCX');
end
else if Buffer=$5089 then
begin
ShowMessage('PNG');
end
else if Buffer=$4238 then
begin
ShowMessage('PSD');
end
else if Buffer=$A659 then
begin
ShowMessage('RAS');
end
else if Buffer=$DA01 then
begin
ShowMessage('SGI');
end
else if Buffer=$4949 then
begin
ShowMessage('TIFF');
end
else //如是其他类型的文件的话,直接显示错误
begin
ShowMessage('ERR');
end;
finally
imagestream.Free;
end;