Hola estoy usando la el api de shodan para ver resultados en json usando uLkJSON , el problema es que cuando cargo la IP el programa siempre me devuelve el error "Invalid typecast" y se clava ahi.
El codigo es este :
Código Delphi
[-]
unit tool;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls, IdSSLOpenSSL,
IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, uLkJSON;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
nave: TIdHTTP;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
GroupBox1: TGroupBox;
ip: TEdit;
Button1: TButton;
GroupBox2: TGroupBox;
console1: TMemo;
ssl: TIdSSLIOHandlerSocketOpenSSL;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
api_key: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
api_key := 'apikey';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
code: string;
var
js,
itjs: TlkJSONobject;
var ip_found:string;
begin
code := nave.Get('https://api.shodan.io/shodan/host/' + ip.Text + '?key='
+ api_key);
js := TlkJSON.ParseText(code) as TlkJsonObject;
ip_found := js.getString('ip');
console1.Lines.Add(ip_found);
end;
end.
Y me devuelve este error :
Código:
Invalid class typecast
¿ Como soluciono esto ?