Срочно - стринги и вызов Win32 API функций (.NET)

Я новичек в VB.NET.

В VB6 можно было декларировать стринг как
и потом передать в API функцию декларированную как
после чего вызов выглядит как
Теперь же, в .NET декларация функции выглядит так
а вызов так
Это более запутанно, но еще понятно. Но в следующем случае я не понимаю как мне декларировать структуру, чтобы вызов API был правильным:
Как я понял, проблема в декларации стрингов в структуре. Я пробовал декларировать их и как обычный стринг, и как
System.Text.StringBuilder, но ничего не помогает. (тип ошибок при различных декларациях разный, но результат тот же).

Вопрос: как в .NET декларируются структуры со стрингами для последующей передачи их в Win32 API функции для заполнения полей?

0

kpoxa,
Я нашел чью-то дискуссию на схожую тему:

Hello all,

I am having some trouble using wininet.dll fot FTP in VB.NET. Here is my code:


CODE
Module Module1

Private Structure FILETIME
Dim dwLowDateTime As Long
Dim dwHighDateTime As Long
End Structure

Private Structure WIN32_FIND_DATA
Dim dwFileAttributes As Long
Dim ftCreationTime As FILETIME
Dim ftLastAccessTime As FILETIME
Dim ftLastWriteTime As FILETIME
Dim nFileSizeHigh As Long
Dim nFileSizeLow As Long
Dim dwReserved0 As Long
Dim dwReserved1 As Long
Dim cFileName As String
Dim cAlternate As String
End Structure

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal HINet As Integer) As Integer
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Integer, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Integer) As Integer
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Integer, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Integer, ByVal lFlags As Integer, ByVal lContext As Integer) As Integer
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Integer, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Integer, ByVal dwFlags As Integer, ByVal dwContext As Integer) As Boolean
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Integer, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Integer, ByVal dwContext As Integer) As Boolean
Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, ByVal lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, ByVal lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, ByVal lpdwCurrentDirectory As Long) As Long

Sub Main()
Dim INet As Long
Dim INetConn As Long
Dim RC As Boolean
Dim FileData As WIN32_FIND_DATA
Dim FileList As String
Dim MAX_PATH As Long = 0

INet = InternetOpen("FTP_Backup", 1, vbNullString, vbNullString, 0)
INetConn = InternetConnect(INet, "my.ftp.server.name", 0, "MyUsername", "MyPassword", 1, 0, 0)
RC = FtpGetFile(INetConn, "/notes.ini", "D:TempVB .NET TempNotes Data
otes.ini", False, 0, 0, 0)

If RC Then Console.WriteLine("Transferred Notes.ini")

RC = FtpSetCurrentDirectory(INetConn, "/Data/mail")
MsgBox(RC)

RC = FtpGetCurrentDirectory(INetConn, FileList, MAX_PATH)


MsgBox(MAX_PATH)
MsgBox(FileList)

FileData.cFileName = New String("", 0, MAX_PATH)

RC = FtpFindFirstFile(INetConn, "*.*", FileData, 0, 0)

MsgBox(RC)

FileList = FileData.cFileName & ","

'Do While RC = True
' RC = InternetFindNextFile(INetConn, FileData)
'

0

Те решения, что здесь приведены, я и так уже нашел (см. в моем коде), но я не нашел решения проблемы для структуры, а именно там и происходит ошибка на котороя я застопорился, если можно помощи именно со структурой и передачей её в WinAPI (в моем случае вызов FtpFindFirstFile ).

0

Сообщение от kpoxa Те решения, что здесь приведены, я и так уже нашел (см. в моем коде), но я не нашел решения проблемы для структуры, а именно там и происходит ошибка на котороя я застопорился, если можно помощи именно со структурой и передачей её в WinAPI (в моем случае вызов FtpFindFirstFile ).

http://pinvoke.net/default.asp... dFirstFile

Спасибо, messir. Это именно то, что нужно (впрочем, как и все твои тветы :o) )

0