Tenho uma dll feita em C# com um método que recebe um parâmetro do tipo string, criei uma função no Delphi que chama esse método e passa a seguinte string no parâmetro: 'D:\Bancos\Teste.fdb', coloquei um messagebox na dll apenas para conferir como o parâmetro estava chegando e o unico valor que chega é o caractere 'D' o restante da string não vem. Tem alguma forma de resolver? Segue abaixo trecho do código:
dll em C#:
[Guid("36CEE06F-247C-48B4-A8BB-0E591CEF58BE")]
[ComVisible(true)]
public class ReportService
{
[DllExport]
public static bool ListaComprasResumida(string pathBanco, string codEmpresa)
{
MessageBox.Show(pathBanco);
Thread.CurrentThread.SetApartmentState(ApartmentState.STA);
var frm = new FrmListaComprasResumido(pathBanco, codEmpresa);
frm.ShowDialog();
return true;
}
}
Chamada da função no Delphi:
uses
function ListaComprasResumida(pathBanco: string; codEmpresa: string): Boolean; stdcall; external 'Modules.dll';
procedure TRelatorio.btnComprasResumidoClick(Sender: TObject);
var
caminho : string;
codigo : string;
begin
caminho := txtBanco.Text;
codigo := txtCodEmpresa.Text;
ListaComprasResumida(caminho, codigo);
end;