本文整理自网络,侵删。
function Tform1.GetCodeImg; var url:string; response:TMemoryStream; jpg:TJPEGImage; begin url:='https://kyfw.12306.cn/otn/passcodeNew/getPassCodeNew?module=login&rand=sjrand&0.3110086616057921'; idhtp1.Get(url,response); jpg:=TJPEGImage.Create; jpg.LoadFromStream(response); img1.Picture.Assign(jpg); end;
相关阅读 >>
Delphi -- gdi+ Delphi如何让 tgpimage 直接从流中加载图片
Delphi Delphi tparallel cleanup needed用法
更多相关阅读请进入《Delphi》频道 >>