Problemas Compilar dll en Editor Delphi XE3

[elcharlie]

Buenas:
Soy novatillo, y he estado haciendo unas cosillas el delphi, sobre todo dlls para reutilizar en otros lenguajes, y siempre he usado el Borland Delphy 7.
Me he puesto a hacer unas cosillas, y me he puesto a utilizar el nuevo editor de Delphy el XE3, pero siempre que lanzo un pChar o un String, los caracteres que me muestra estan en chino.
¿Alguien sabe como tengo que configurarlo? No encuentro ninguna documentación al respecto.
¿alguien sabe por qué al generar la dll, me ocupa tanto? He hecho una prueba con una chorrada, y me ocupa casi 2 Megas, lo hago desde Delphy 7, y ademas de funcionar perfectamente, me ocupa 100 Kbs.
Os dejo el codigo pa que veas que chorrada es:

Código PHP:

library Prueba;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;


{$R *.res}

function mensaje(sTitulo : pChar; sMensaje : pChar): boolean;stdcall;
begin
  Application.MessageBox(sMensaje, sTitulo, MB_ICONINFORMATION);
  result:=TRUE;
end;

exports mensaje;
begin
end. 


[elcharlie]

Se me olvidaba mostraros el mensaje de salida:
hxxp://imageshack.us/photo/my-images/844/14032013123958.jpg/

[cloayza]

Como estas llamando a la función mensaje...?

Da algo mas de información...como dice alguien en el foro..."Mi bola de cristal esta dañada en estos momentos"...o algo parecido...

Saludos

[[duilioisola]]

Si estás trabajando con Delphi XE3 seguramente el problema estará en la codificación del string.
A partir de Delphi 2009 los string están codificados como Unicode.
Si el otro lenguaje con el que trabajas envía códigos ASCII, seguramente tengas que esperar parámetros del tipo pAnsiChar.

Código Delphi [-]
function mensaje(sTitulo : pAnsiChar; sMensaje : pAnsiChar): boolean; stdcall;
begin
  Application.MessageBox(sMensaje, sTitulo, MB_ICONINFORMATION);
  result:=TRUE;
end;

Te sugiero además, que el código Delphi que envíes a los foros los encierres entre etiquetas delphi

[ delphi ]
WriteLn('Hellp World!');
[ /delphi ]

[elcharlie]

Gracias por Responder, pero me sigue sin funcionar como tu me dices, nada que me sigue saliendo chinos. Ademas si lo ponia como me decias tu, me daba error al compilar, me decia que la MessageBox no podia enviarle ese tipo de datos.
He hecho esto:

Código Delphi [-]
library Prueba;



uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;


{$R *.res}

function mensaje(sTitulo : pAnsiChar; sMensaje : pAnsiChar): boolean;stdcall;
begin
  Application.MessageBox(Pchar(sMensaje), PChar(sTitulo), MB_ICONINFORMATION);
  result:=TRUE;
end;

exports mensaje;
begin
end.

Yo me supongo, que mas que del codigo sea algo de configuración del IDE, porque si lo compilo con delphy 7 ningun problema

[[duilioisola]]

Tienes razón, lo que yo envié no compila. Era más que nada para mostrarte que hay dos codificaciones posibles para strings.
En realidad hay una infinidad de codificaciones, ASCCI, Unicode, UTF8/16/32 son las más utilizadas.

Dicho esto, deberías averiguar como envía los parámetros el lenguaje que utiliza tu dll.
Luego deberás recibir estos datos en variables que sean del tipo correcto. (esto es discutible)
Finalmente, quizás debas traducir la codificación de lo que recibes a la que utiliza Delphi XE3. En este caso Unicode.