一个成功获取百度注册页面验证码图片的源代码

成功实现使用delphi获取百度的验证码图片(只获得图片，不进行识别，识别之后再研究吧O(∩_∩)O)

procedure TForm1.btn1Click(Sender: TObject);

  procedure doSomething(ms: TMemoryStream);
  var
    Buffer:Word;
    AjpgFile: TJPEGImage;
  begin
    ms.Position := 0;
    if ms.Size = 0 then
      Exit;
    ms.ReadBuffer(Buffer,2); //读取文件的前２个字节，放到Buffer里面
    if Buffer=$4D42 then //如果前两个字节是以4D42[低位到高位]
    begin
      ShowMessage('BMP'); //那么这个是BMP格式的文件
    end
    else if Buffer=$D8FF then //如果前两个字节是以D8FF[低位到高位]
     begin
      ShowMessage('JPEG'); //........一样　下面不注释了
      ms.Position := 0;
      AjpgFile := TJPEGImage.Create;
      AjpgFile.LoadFromStream(ms);
      Image1.Picture.Graphic := AjpgFile;
     end
    else if Buffer=$4947 then
    begin
      ShowMessage('GIF');
    end
    else if Buffer=$5089 then
    begin
      ShowMessage('PNG');
    end;
  end;
var