procedure TForm5.Button1Click(Sender: TObject);
begin
ShowImage(Image1);
end;
procedure TForm5.DownloadVerifyCodeImage(AStream: TStream);
const
URL = 'https://scnewb2b.travelsky.com/scb2b/VerificationCode.do?agentType=domestic';
var
LHttp: TIdHTTP;
LIOHandler: TIdIOHandler;
begin
LHttp:= TIdHTTP.Create(nil);
LIOHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
LHttp.IOHandler := LIOHandler;
LHttp.Get(URL, AStream);
finally
LIOHandler.Free;
LHttp.Free;
end;
end;
procedure TForm5.ShowImage(AImage: TImage);
var
LStream : TStream;
LJpeg: TJPEGImage;
begin
LStream := TMemoryStream.Create;
try
DownloadVerifyCodeImage(LStream);
if LStream.Size = 0 then Exit;
LStream.position := 0;
LJpeg:= TJPEGImage.Create;
try
LJpeg.LoadFromStream(LStream);
AImage.Picture.Assign(LJpeg);
finally
LJpeg.Free;
end;
finally
LStream.Free;
end;
end;
