1,593
社区成员




var
http: TIdHTTP;
res: string;
begin
http := TIdHTTP.Create(nil);
http.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
try
res := http.Get('https://www.okcoin.cn/api/v1/depth.do?symbol=btc_cny');
OutputDebugString(PChar(res));
except
on e: Exception do
begin
ShowMessage(e.Message);
end;
end;
finally
http.IOHandler.Free;
http.Free;
end;
end;