本文整理自网络,侵删。
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获取dos命令行输出函数 运行cmd命令并获取结果
更多相关阅读请进入《Delphi》频道 >>