Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-06-2013
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 211
Poder: 10
webmasterplc Va por buen camino
Error en Webservice funcion envio de sms

buenas estoy tratando de crear un Webservice en delphi 7 en la cual tengo una funcion pero me da este error:
[Error] wsKSMSImpl.pas(15): Unsatisfied forward or external declaration: 'TwsKSMS.enviarSMS'

mi codigo es este.

Código Delphi [-]
{ Invokable implementation File for TwsKSMS which implements IwsKSMS }

unit wsKSMSImpl;

interface

uses SysUtils, Classes, IdHTTP,InvokeRegistry, Types, XSBuiltIns, wsKSMSIntf;

type

  { TwsKSMS }
  TwsKSMS = class(TInvokableClass, IwsKSMS)

  public
   function enviarSMS (url,usuario,clave,phone,mensaje : string) :string;stdcall;
   end;


implementation

function enviarSMS (url,usuario,clave,phone,mensaje : string) :string;stdcall;

var
  http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
    http := TIdHTTP.Create(nil);
    params := TStringList.Create;

    begin
        params.Add('usuario='+usuario);
        params.Add('clave='+clave);
        params.Add('telefonos='+phone);
        params.Add('texto='+mensaje);
        respuesta := http.Post(url, params);
    end;
    params.Free;
    http.Free;
end;
exports
 enviarSMS;

initialization
  { Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TwsKSMS);

end.
Responder Con Cita
  #2  
Antiguo 25-06-2013
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 645
Poder: 12
TiammatMX Va camino a la fama
Cita:
Empezado por webmasterplc Ver Mensaje
buenas estoy tratando de crear un Webservice en delphi 7 en la cual tengo una funcion pero me da este error:
wsKSMSImpl.pas(15): Unsatisfied forward or external declaration: 'TwsKSMS.enviarSMS'...
Pues a riesgo de equivocarme, el path donde está instalado TwqKSMS o no es correcto o no existe. Revísale por ahí, seguro que ése es el problema.
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco

Última edición por TiammatMX fecha: 25-06-2013 a las 00:13:03. Razón: Eliminar etiqueta sobrante.
Responder Con Cita
  #3  
Antiguo 25-06-2013
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 211
Poder: 10
webmasterplc Va por buen camino
Soy nuevo en esto seria mi primer webservice no se donde lo configuramos
Cita:
Empezado por tiammat Ver Mensaje
Pues a riesgo de equivocarme, el path donde está instalado TwqKSMS o no es correcto o no existe. Revísale por ahí, seguro que ése es el problema.
Responder Con Cita
  #4  
Antiguo 25-06-2013
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 645
Poder: 12
TiammatMX Va camino a la fama
Cita:
Empezado por webmasterplc Ver Mensaje
Soy nuevo en esto seria mi primer webservice no se donde lo configuramos
No es el path del webservice, sino del componente que usas para enviar el mensaje. Eso puedes verlo en las opciones generales de Delphi.

Ahora que si a través del webservice envías el SMS, entonces faltan o sobran o son incorrectos los parámetros que le mandas al método.
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita
  #5  
Antiguo 25-06-2013
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.413
Poder: 18
egostar Va por buen camino
Hola

A mi me parece que no estas haciendo bien el Servicio Web, le estás dando forma de una DLL, la palabra reservada exports no existe en un Servicio Web (Hasta donde mi experiencia me permite saber), Delphi cuenta con su experto para crear un Servicio Web y puedes acceder a él desde

File --> New --> Others --> WebService --> SOAP server Application

Saludos
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #6  
Antiguo 25-07-2013
Sinaloense Sinaloense is offline
Miembro
 
Registrado: oct 2003
Posts: 139
Poder: 15
Sinaloense Va por buen camino
El problema es que en la clase TwsKSMS esta declarando la función enviarSMS, pero en el desarrollo de la función tienes:

function enviarSMS (url,usuario,clave,phone,mensaje : string) :string;stdcall;

No esta dentro de la clase, tendriás que hacer:

function TwsKSMS .enviarSMS (url,usuario,clave,phone,mensaje : string) :string;stdcall;

para que se considere dentro de la clase o quitarla de la declaración de la clase.
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
Error en Webservice por Caracteres Especiales ruedabeat2003 Internet 2 22-05-2012 20:08:49
Error en WebService y Windows 7 adebonis Internet 3 30-12-2011 20:42:16
Error Con multiples accesos a WebService elcopa Varios 0 30-09-2011 00:59:51
Error en el envío de correo. Cecilio Internet 0 02-07-2008 17:28:20
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 18:17:38.


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