Error en Webservice funcion envio de sms

[[egostar]]

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

[Sinaloense]

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.