TynSerial图片序列（还原）

TynSerial图片序列（还原）

笔者以生成图形验证码为例。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

function TForm1.VerifyCode(image: TImage): string; // 生成验证码和图像 var   url: SockString;   serial: TynSerial;   i: Integer;   ms: TMemoryStream; begin   serial := TynSerial.Create;   ms := TMemoryStream.Create;   try     url := 'verifycode';     i := FHttp.Post(url, '', FDataType);     if i = 200 then     begin       serial.Text := FHttp.Content;       Result := serial.ReadString('code');       serial.ReadStream('image', ms);       ms.Position := 0;       image.Picture.Bitmap.LoadFromStream(ms);     end     else       ShowMessage(IntToStr(i) + ' error');   finally     serial.Free;     ms.Free;   end; end;