elek

Знающие люди!!! Помогите найти ошибку, уже третью неделю бьюсь
Задача в следующем: Необходимо отправлять текст на печать с КПК (Windows Mobile 5.0) через ИК-порт на матричный принтер Epson LX300+.
Никак не получается рабочий вариант...
Код выглядит следующим образом:

Public Structure SECURITY_ATTRIBUTES
Public nLength As Long
Public lpSecurityDescriptor As Long
Public bInheritHandle As Long
End Structure

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const CREATE_NEW = 1
Public Const CREATE_ALWAYS = 2
Public Const OPEN_EXISTING = 3
Public Const OPEN_ALWAYS = 4
Public Const TRUNCATE_EXISTING = 5
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_FLAG_DELETE_ON_CLOSE = &H4000000
Public Const FILE_FLAG_NO_BUFFERING = &H20000000
Public Const FILE_FLAG_OVERLAPPED = &H40000000
Public Const FILE_FLAG_POSIX_SEMANTICS = &H1000000
Public Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Public Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000
Public Const FILE_FLAG_WRITE_THROUGH = &H80000000

Declare Function CreateFile Lib "Coredll.dll" Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Sub ButPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButPrint.Click
Dim hFile As Long
Dim SA As SECURITY_ATTRIBUTES
hFile = CreateFile("COM3:", GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
If hFile = -1 Then
MsgBox("Ошибка.")
End If
...
End Sub
При нажатии на кнопку Печать выполнение программы останавливается на строчке
hFile = CreateFile(...
и выдаёт сообщение
An unhandled exception of type 'Systen.NotSupportedException' occurred in Test.exe
пробовал так же вариант
Declare Function CreateFile Lib "Coredll.dll" Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Object, ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

hFile = CreateFile("COM3:", GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
результат тот же...
Думаю ошибка в описании функции или её параметрах при вызове.
Подскажите, что не так. Буду благодарен за любые комментарии.

joe

У меня такой вопрос. Можно ли заливать файлы на свой фтп с другого сайта "на лету", т.е. чтоб не сначало я скачивал файл на свой комп, а потом заливал на фтп, а через посторонний сервер и соответственно трафик за интеренет не будет учитываться.

Ranter

Взгляни http://www.web-article.com.ua/2008/k...ftp-na-server/ и на сколько я знаю что бы скопировать файл с одного фтп-сервера на другой фтп-сервер, придется сначала залить нужный файл на свой компьютер, а потом залить на второй ...

joe

Я где-то читал что можно через сервер это делать, но не могу найти где читал...

Islam

Во пара скриптов для переноса файлов с FTP на FTP -
http://rapidshare.com/files/17403970...1.0.1.rar.html
http://rapidshare.com/files/17404010...p_ftp.zip.html
http://rapidshare.com/files/174040326/perenos.zip.html

Еще можно попробовать скриптом pFTP - http://www.pftp.de/