Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-12-2014
JuanOrtega JuanOrtega is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 130
Poder: 13
JuanOrtega Va por buen camino
Problema viendo resultados con uLkJSON

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
    { Private declarations }
  public
    { Public declarations }
  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 ?
Responder Con Cita
  #2  
Antiguo 18-12-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Para poder ayudarte habría que saber qué estás pasando al ParseText como parámetro y en qué linea te está fallando exactamente.
Ambas cosas puedes conseguir saberlas ejecutando paso a paso el programa.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 18-12-2014
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Código Delphi [-]
js := TlkJSON.ParseText(code) as TlkJsonObject;
No sé qué tipo de dato devuelve el método ParseText (¿STRING?), pero está claro que no es una clase compatible con TlkJsonObject.

Tienes tres posibles soluciones (ninguna garantizada):
  • Cambiar el tipo de dato de js a otro que sí sea compatible con (o el mismo que) el devuelto por ParseText.
  • No usar el operador "AS" sino forzar el tipo de manera estática: js := TlkJsonObject (TlkJSON.ParseText(code));
  • Usar alguna función o método de conversión.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #4  
Antiguo 18-12-2014
JuanOrtega JuanOrtega is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 130
Poder: 13
JuanOrtega Va por buen camino
Es en esta linea es el error :

Código Delphi [-]
  ip_found := js.getString('ip');
Responder Con Cita
  #5  
Antiguo 18-12-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Neftali Ver Mensaje
...habría que saber qué estás pasando al ParseText como parámetro.
Vuelvo a reiterar la pregunta.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 18-12-2014
JuanOrtega JuanOrtega is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 130
Poder: 13
JuanOrtega Va por buen camino
Verificar si Field existen en uLkJSON

Hola tengo el siguiente codigo :

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
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  api_key: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  api_key := 'test';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  code: string;

var
  json, json2: TlkJSONobject;
  i: integer;

var
  ip_found, country_found, country_code, region_name, postal_code: string;

var
  ip_str, product, version, data, cpe, timestamp, last_update, port, os, isp,
    ans, banner: string;

begin
  code := nave.Get('https://api.shodan.io/shodan/host/' + ip.Text + '?key='
    + api_key);

  json := TlkJSON.ParseText(code) as TlkJSONobject;

  for i := 0 to json.Field['data'].Count - 1 do
  begin
    console1.Lines.Add('------------------------------------');
    json2 := (json.Field['data'].Child[i] as TlkJSONobject);

    try
      begin
        console1.Lines.Add(json.Field['ip_strz'].SelfTypeName);
      end;
    except
      //
    end;

  end;
end;

end.

El problema es que estoy tratando de verificar si un field existe por ejemplo ip_strz , en el control uso SeldTypeName para ver si es null y asi darme cuenta pero siempre me da error , trate usando try y except pero sigue dando error , el error que siempre da es este :

Código:
Acess violation at adress in module 'shodan.exe' , read of address 000000
¿ Alguien me puede ayudar ?
Responder Con Cita
  #7  
Antiguo 18-12-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No crees otro hilo para seguir con lo mismo
He unido ambos hilos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Te está viendo la cara AzidRain Humor 2 19-10-2010 11:40:08
Problema: resultados inesperados en access radiohead SQL 4 27-11-2008 10:29:50
Viendo el lado bueno egostar La Taberna 21 25-10-2008 20:01:06
Problema: resultados incrementales en Rave david.rguez Impresión 1 24-10-2007 11:25:27
Problema con resultados Null vpepen SQL 14 27-07-2006 11:19:04


La franja horaria es GMT +2. Ahora son las 13:48:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi