Знающие люди!!! Помогите найти ошибку, уже третью неделю бьюсь
Задача в следующем: Необходимо отправлять текст на печать с КПК (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) результат тот же... Думаю ошибка в описании функции или её параметрах при вызове. Подскажите, что не так. Буду благодарен за любые комментарии. |
Закачка файлов на FTP
У меня такой вопрос. Можно ли заливать файлы на свой фтп с другого сайта "на лету", т.е. чтоб не сначало я скачивал файл на свой комп, а потом заливал на фтп, а через посторонний сервер и соответственно трафик за интеренет не будет учитываться.
|
Взгляни http://www.web-article.com.ua/2008/k...ftp-na-server/ и на сколько я знаю что бы скопировать файл с одного фтп-сервера на другой фтп-сервер, придется сначала залить нужный файл на свой компьютер, а потом залить на второй ...
|
Я где-то читал что можно через сервер это делать, но не могу найти где читал...
|
Во пара скриптов для переноса файлов с 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/ |
Часовой пояс GMT +4, время: 22:09. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.