在C＃代码中使用带有字符串[255]类型和结构的Delphi DLL

我只有客户提供的API描述的DLL和文本文件（请参见下文）。我没有关于DLL的更多详细信息。我不知道Delphi版本等。

我尝试同时使用两个API函数，但未成功。通常，字符串[255]的前两个参数（PatientID和AccessionNo）很重要。我将字符串传递到该DLL的任何尝试均未提供正确的结果。我在应用程序GUI中看到随机垃圾值或字符串的一部分。我查看了该网站上的所有相关问题，并在互联网上进行了搜索，但没有找到任何对我有帮助的信息。

1. OpenStudy函数-我为CharSet = CharSet.Ansi和Auto尝试了不同的设置，对于MarshalAs都是所有合适的值（请参见下文）。我在托管应用程序GUI文本字段中看到了垃圾随机值。

   [DllImport("Lib\\RISInterface.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi, EntryPoint = "Open_Study", ExactSpelling = false)]
   
   static extern internal int OpenStudy(
   
   // try to use here and for all string fields [MarshalAs(UnmanagedType.AnsiBStr)] , LPStr, LPTStr, LPWStr, BStr, TBStr, HString 
   string PatientID,
   string AccessionNo,
   bool CloseCurrentStudy,
   bool AddToWindow,
   int SeriesRows,
   int SeriesCols,
   int PresentationMode,
   bool AutoTile,
   bool AutoLoad,
   bool RemoteExam);
   

2. OpenStudy1函数-我填充结构并调用函数。我将PatientID和AccessionNo视为普通字符串，但PatientID缺少第一个字母，而AccessionNo缺少前两个字母。（发送：“ qwerty”，“ 12345”，请参阅：“ werty”，“ 345”）

   [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
   public struct TIQStudyAutomation
   {
       [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
       public string PatientID;
       [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
       public string AccessionNo;
       [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
       public string StudyUID;
       [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
       public string SeriesUID;
       [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
       public string InstanceUID;
       public bool CloseCurrentStudy;
       public bool AddToWindow;
       public int SeriesRows;
       public int SeriesCols;
       public int PresentationMode;
       public bool AutoTile;
       public bool AutoLoad;
       public bool RemoteExam;
       public bool LoadFromAllSources;
       [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 255)]
       public string ArchiveName;
   }
   
   [DllImport("Lib\\RISInterface.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi, EntryPoint = "Open_Study1", ExactSpelling = false)]
   
   static extern internal int OpenStudy1(TIQStudyAutomation automationInfo);
   

================ API说明=============================== ===========

这些函数声明是Delphi代码，所有字符串引用都是Ansi字符串。

function Open_Study(PatientID, AccessionNo: PAnsiChar; CloseCurrentStudy, AddToWindow: Boolean; 
    SeriesRows, SeriesCols, PresentationMode: Integer; 
    AutoTile, AutoLoad, RemoteExam: Boolean): Integer; stdcall;
Return
    Error Code.

Remarks
    The parameters will be packed into a TIQStudyAutomation record and passed to Open_Study1.

//--------------------------------------------------------------------------------------------------

function Open_Study1(AutomationInfo: TIQStudyAutomation): Integer; stdcall;
Return
    Error Code.

Parameters
    Takes a TIQStudyAutomation record.

//--------------------------------------------------------------------------------------------------


TIQStudyAutomation = record 

  PatientID, AccessionNo, StudyUID, SeriesUID, InstanceUID: STRING[255];

  CloseCurrentStudy, AddToWindow: BOOLEAN;

  SeriesRows, SeriesCols, PresentationMode: Integer;

  AutoTile, AutoLoad, RemoteExam, LoadFromAllSources : BOOLEAN; ArchiveName: STRING[255];

end;

有什么帮助吗？