Помогите найти ошибку в DLL

[valdi]

Здравствуйте,
есть работающая библиотека на C#, надо переписать ее на Delphi,с D я не знаком и поэтому не уверен в правильности того что пишу
Просьба посмотреть где ошибка(при компиляции библиотеки ошибки не выдается,но она не работает)
Код на шарпе:

public class Class1
    {
       private const string m_strPath = "CP5200.dll";
 
       //RS232/485
       [DllImport(m_strPath, CharSet = CharSet.Auto)]
       public static extern int CP5200_RS232_InitEx(IntPtr fName, int nBaudrate, int dwTimeout);
       [DllImport(m_strPath, CharSet = CharSet.Auto)]
       public static extern int CP5200_RS232_SendText(int nCardID, int nWndNo, IntPtr pText, int crColor, int nFontSize, int nSpeed, int nEffect, int nStayTime, int nAlignment);
       public int z(string s, int port, int font)
       {        
          int m_nTimeout = 600;
          port = Convert.ToByte(5);
          int nBaudrate = 115200;
          CP5200_RS232_InitEx(Marshal.StringToHGlobalAnsi("COM" + port.ToString()), nBaudrate, m_nTimeout);
          return CP5200_RS232_SendText(Convert.ToByte(1), 0, Marshal.StringToHGlobalAnsi(s), 0xFF, 16, 3, 0, 3, 5); ;
       }
    }

Код на Delphi:

library Stella;
 
uses
  SysUtils,
  Classes,                
  Windows;
 
function CP5200_RS232_InitEx(fName:AnsiString; nBaund:Integer; nTimeout:Integer):Integer; stdcall; forward; external 'CP5200.dll';
function CP5200_RS232_SendText(nCardID:Integer;nWndNo:Integer;pText:PChar;crColor: DWord;nFontSize:Integer;nSpeed:Integer;nEffect:Integer;nStayTime:Integer;nAlignment:Integer):Integer; stdcall; forward; external 'CP5200.dll';
  {$R *.res}
function SendString(s:PAnsiChar;port_:integer;font_:integer): Integer; stdcall;
begin                                        
  CP5200_RS232_InitEx('COM5', 115200, 600);
  Result := CP5200_RS232_SendText(1, 0, s, RGB(0,255,0), 16, 3, 0, 3, 5)
end;
exports
    SendString;
begin
 
end.

[valdi]

Может делфи не видит библиотеку сp5200?
Помогите понять в чем проблема

[Smitt&Wesson]

Будет стоить примерно около 10 000 целковых. Найдёте дешевле, - скажите.

[valdi]

шутканули)

[Stilet]

IntPtr fName

и

fName:AnsiString;

IntPtr - это что за тип?

[valdi]

Сообщение от Stilet

и

IntPtr - это что за тип?

да не в этом проблема - он потом в стринг переделывается

я думаю что проблема в том что я потом из приложения на шарпе вызываю эту библиотеку и ему не нравится типы в функции SendString (s:PAnsiChar..)
а в шарпе я вызываю как SendString(string s...)
когда приложение запускается,то ошибок нет,просто не выводится текст...так что что-то с типами не то тут..

[Xo66um]

Попробуй вместо AnsiString, PChar и т.д., использовать WideString, т.к. насколько я знаю, он лучше подходит к С-подобным программам.

[Пепел Феникса]

Сообщение от Xo66um

Попробуй вместо AnsiString, PChar и т.д., использовать WideString, т.к. насколько я знаю, он лучше подходит к С-подобным программам.

WideString вообще структура, что за гадание на картах блин?

function CP5200_RS232_InitEx(fName:PAnsiChar; nBaund:Integer; nTimeout:Integer):Integer; stdcall; forward; external 'CP5200.dll';
function CP5200_RS232_SendText(nCardID:Integer;nWndNo:Integer;pText:PAnsiChar;crColor: DWord;nFontSize:Integer;nSpeed:Integer;nEffect:Integer;nStayTime:Integer;nAlignment:Integer):Integer; stdcall; forward; external 'CP5200.dll';
  {$R *.res}
function SendString(s:string;port:integer;fontsize:integer): Integer; stdcall;
begin                                        
  CP5200_RS232_InitEx(PAnsiChar(ANSIString('COM'+IntToStr(port)), 115200, 600);
  Result := CP5200_RS232_SendText(1, 0, PAnsiChar(ANSIString(s)), RGB(0,255,0), fontsize, 3, 0, 3, 5)
end;

exports
    SendString;
begin

поидее как-то так.
но это для юникодных Дельфей.

[valdi]

спасибо за ответ,но все равно не работает

[саша40]

Для вытаскивания функций из DLL не важен язык программирования. Все языки программирования связаны одним- Ассемблером. Это означает, что если ты компилировал библеотеку на C#, то ты можешь её использовать не только в C#, но и в Delphi, С++, VB.
Надеюсь, как применить процедуры и функции из dll мы знаем.