Dll em delphi & Struct

[-= NemesiS =-]

Olá pessoal tenho um aplicativo em c que acessa minha dll feita em delphi, e chama a função e eenvia uma strutura:

aplicativo em c:

typedef struct{ 

    char* cmd;

} TPacket;

TPacket data;

void getPacket(TPacket* tmpData)
{
    get3DGSPacket(tmpData); // função na dll
}

void main()
{
    data.cmd = "login";
    
    getPacket(data);
}

até aqui está ok, não posso modificar este código, pois ele está interligado com outras rotinas... , o meu problema é no delphi.

type

  TPacket = record

    cmd: pstring;

end;

function get3DGSPacket(tmpData: TPacket):boolean; cdecl;
  begin

    showmessage('get3DGSPacket - OK'); // só para debugar a aplicação.

    with tmpData do
    begin
      showmessage(pchar(pstring(tmpData.cmd))); // teria que exibir 'login'
    end;

    result := true;

  end;

ao mostrar via showmessage o parametro .cmd ele me retorna uns caracteres estranhos tipos como se fosse erro de codificação .. sei lá..

exemplo:

e/'"Dó\*■■%@■..

mais ow menos isso..

alguém poderia me ajudar ..

Obrigado.

OBS: Favor não duplicar Tópicos

Jhonas

Editado Maio 11, 2009 por Jhonas

[Churc]

Opa

Tente da Seguinte forma

type
  TPacket = record
    cmd: PChar; //ou
    //cmd: array [0..1024] of Char;  //Buffer de 1024 caracteres, diminua se for muito ou aumente se não for suficiente
  end;

//Pra compatibilidade com C voce deve usar BOOL não Boolean

function get3DGSPacket(tmpData: TPacket): BOOL; cdecl;
begin
  showmessage('get3DGSPacket - OK'); // só para debugar a aplicação.
  with tmpData do
  showmessage(PChar(tmpData.cmd)); // teria que exibir 'login'
  result := true;
end;

Qualquer coisa, cola um código em C que rode chamando essa funcao na DLL que eu testo aqui certinho... tenho o Visuall C++ porém

não sei importar funcoes de DLLs em C rs

abrs

Editado Maio 13, 2009 por Churc