Según el mensaje que aparece en Delphi, cuando se crea una nueva
librería, hay que utilizar ShortString o PChar.

Agradecería que alguno modificara esta librería simple, para que pueda
devolver una cadena que pueda ser recogida por Visual Basic
_______________________________________

Library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

procedure Saludo(): ShortString; stdcall;
begin
Result:= '¡Hola Mundo!' ;
end;

exports
Texto;

begin
end.
_______________________________________

Saludos desde la calle Estafeta de Pamplona.

Me contesto a mí mismo:

Este es un código adaptado y simplificado del sitio:
www.activedelphi.com.br
__________________________________________________ ______


library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

function Saludo(): PChar; stdcall;
var
Cadena: string;
Buffer: Integer;
begin
Cadena:='¡Hola Mundo!'
Buffer := Length(Cadena) + 1;
Result := StrAlloc(Buffer-5);
Move(Pointer(Cadena)^, Result^, Buffer);
end;

exports
Saludo;

begin
end.
__________________________________________________ ______


Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz

ALGARROBA : String;
Mail : String
ALGARROBA := '***';
Mail :='eduardo'+ALGARROBA+'olaz.net'

P.D.
Interesante error el mío de utilizar antes un procedure como si fuera
una función.

Me contesto a mí mismo:

Este es un código adaptado y simplificado del sitio:
www.activedelphi.com.br
__________________________________________________ ______


library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

function Saludo(): PChar; stdcall;
var
Cadena: string;
Buffer: Integer;
begin
Cadena:='¡Hola Mundo!'
Buffer := Length(Cadena) + 1;
Result := StrAlloc(Buffer-5);
Move(Pointer(Cadena)^, Result^, Buffer);
end;

exports
Saludo;

begin
end.
__________________________________________________ ______


Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz

ALGARROBA : String;
Mail : String
ALGARROBA := '***';
Mail :='eduardo'+ALGARROBA+'olaz.net'

P.D.
Interesante error el mío de utilizar antes un procedure como si fuera
una función.

Me contesto a mí mismo:

Este es un código adaptado y simplificado del sitio:
www.activedelphi.com.br
__________________________________________________ ______


library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

function Saludo(): PChar; stdcall;
var
Cadena: string;
Buffer: Integer;
begin
Cadena:='¡Hola Mundo!'
Buffer := Length(Cadena) + 1;
Result := StrAlloc(Buffer-5);
Move(Pointer(Cadena)^, Result^, Buffer);
end;

exports
Saludo;

begin
end.
__________________________________________________ ______


Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz

ALGARROBA : String;
Mail : String
ALGARROBA := '***';
Mail :='eduardo'+ALGARROBA+'olaz.net'

P.D.
Interesante error el mío de utilizar antes un procedure como si fuera
una función.

Me contesto a mí mismo:

Este es un código adaptado y simplificado del sitio:
www.activedelphi.com.br
__________________________________________________ ______


library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

function Saludo(): PChar; stdcall;
var
Cadena: string;
Buffer: Integer;
begin
Cadena:='¡Hola Mundo!'
Buffer := Length(Cadena) + 1;
Result := StrAlloc(Buffer-5);
Move(Pointer(Cadena)^, Result^, Buffer);
end;

exports
Saludo;

begin
end.
__________________________________________________ ______


Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz

ALGARROBA : String;
Mail : String
ALGARROBA := '***';
Mail :='eduardo'+ALGARROBA+'olaz.net'

P.D.
Interesante error el mío de utilizar antes un procedure como si fuera
una función.

Me contesto a mí mismo:

Este es un código adaptado y simplificado del sitio:
www.activedelphi.com.br
__________________________________________________ ______


library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

function Saludo(): PChar; stdcall;
var
Cadena: string;
Buffer: Integer;
begin
Cadena:='¡Hola Mundo!'
Buffer := Length(Cadena) + 1;
Result := StrAlloc(Buffer-5);
Move(Pointer(Cadena)^, Result^, Buffer);
end;

exports
Saludo;

begin
end.
__________________________________________________ ______


Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz

ALGARROBA : String;
Mail : String
ALGARROBA := '***';
Mail :='eduardo'+ALGARROBA+'olaz.net'

P.D.
Interesante error el mío de utilizar antes un procedure como si fuera
una función.

Me contesto a mí mismo:

Este es un código adaptado y simplificado del sitio:
www.activedelphi.com.br
__________________________________________________ ______


library eoLibreriaDePrueba;

uses
SysUtils;

{$R *.res}

function Saludo(): PChar; stdcall;
var
Cadena: string;
Buffer: Integer;
begin
Cadena:='¡Hola Mundo!'
Buffer := Length(Cadena) + 1;
Result := StrAlloc(Buffer-5);
Move(Pointer(Cadena)^, Result^, Buffer);
end;

exports
Saludo;

begin
end.
__________________________________________________ ______


Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz

ALGARROBA : String;
Mail : String
ALGARROBA := '***';
Mail :='eduardo'+ALGARROBA+'olaz.net'

P.D.
Interesante error el mío de utilizar antes un procedure como si fuera
una función.

Y mio tambien!!, porque no me habia dado cuenta de ese detalle, pero te
saltaria rapido el fallo al no estar la variable 'Result' definida, supongo.

Pensaba mirar un codigo mio que me paso algo parecido, en el que el
destinatario era algo hecho en VB tambien, pero veo que ya lo has
solucionado.

Felicidades por ello

_______________________________________

Saludos desde Sant Just Desvern en Barcelona


eduardo***olaz.net escribió:
> Me contesto a mí mismo:
>
> Este es un código adaptado y simplificado del sitio:
> www.activedelphi.com.br
> __________________________________________________ ______
>
>
> P.D.
> Interesante error el mío de utilizar antes un procedure como si fuera
> una función.
>

Y mio tambien!!, porque no me habia dado cuenta de ese detalle, pero te
saltaria rapido el fallo al no estar la variable 'Result' definida, supongo.

Pensaba mirar un codigo mio que me paso algo parecido, en el que el
destinatario era algo hecho en VB tambien, pero veo que ya lo has
solucionado.

Felicidades por ello

_______________________________________

Saludos desde Sant Just Desvern en Barcelona


eduardo***olaz.net escribió:
> Me contesto a mí mismo:
>
> Este es un código adaptado y simplificado del sitio:
> www.activedelphi.com.br
> __________________________________________________ ______
>
>
> P.D.
> Interesante error el mío de utilizar antes un procedure como si fuera
> una función.
>

Y mio tambien!!, porque no me habia dado cuenta de ese detalle, pero te
saltaria rapido el fallo al no estar la variable 'Result' definida, supongo.

Pensaba mirar un codigo mio que me paso algo parecido, en el que el
destinatario era algo hecho en VB tambien, pero veo que ya lo has
solucionado.

Felicidades por ello

_______________________________________

Saludos desde Sant Just Desvern en Barcelona


eduardo***olaz.net escribió:
> Me contesto a mí mismo:
>
> Este es un código adaptado y simplificado del sitio:
> www.activedelphi.com.br
> __________________________________________________ ______
>
>
> P.D.
> Interesante error el mío de utilizar antes un procedure como si fuera
> una función.
>