Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Схожу с ума иль восхожу... / 19 сообщений из 19, страница 1 из 1
28.08.2003, 11:40
    #32249806
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Топик написан в продолжение (вернее после его обсуждения): /topic/45389\r
\r
Установив ошибку в указанном выше коде и приняв рекомендации старших товарищей стал ваять новый код. Накатал новый модуль, (+форма) - не работает, упростил, поставил проверки - не работает, упростил еще - не работает, убрал все лишнее - не работает. Был вечер, без 10 восемь... плюнул , пошел домой. Сегодня: отменил регистрацию Mswinsock.ocx, зарегистрировал заново, создал новую пустую базу данных, добавил ссылку, создал форму, положил компонент Mswinsock.ocx добавил три кнопки, написал код - не работает. \r
Проверил свойства Mswinsock.ocx, через Total Comander подключился к FTP - сервак работает. Опять запустил форму, добавил побольше Debug\'ов - все равно шишь!\r
\r
Какой-то бред, у самого два дня назад такой код работал, а сейчас, в новой, пустой, написанной с нуля, базе не работает\r
\r
Весь код:\r
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
\r
Option Compare Database\r
Option Explicit\r
\r
Private Sub Winsock4_Connect()\r
  Debug.Print  "Winsock4_Connect" \r
End Sub\r
Private Sub Winsock4_SendComplete()\r
  Debug.Print  "Winsock4_SendComplete" \r
End Sub\r
\r
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)\r
  Dim sData As String\r
  \r
  Winsock4.GetData sData, vbString\r
  Debug.Print sData\r
End Sub\r
\r
Private Sub Кнопка1_Click()\r
  Dim sSendData As String\r
  Dim FromHost As String, sUser As String, sPass As String\r
  \r
  FromHost =  "10 . 11 . 22 . 115 "\r
  sUser =  "ver" \r
  sPass =  "va567s13" \r
  \r
  Winsock4.Close\r
  Winsock4.RemotePort =  21   \' порт FTP\r
  Winsock4.RemoteHost = FromHost \' адрес FTP-сервера\r
  Winsock4.Connect\r
End Sub\r
\r
Private Sub Кнопка2_Click()\r
  Dim sSendData As String\r
  \r
  Do Until Winsock4.State =  7 \r
    DoEvents\r
  Loop\r
  sSendData =  "USER ver"  & vbCrLf\r
  Winsock4.SendData sSendData\r
End Sub\r
\r
Private Sub Кнопка3_Click()\r
  Winsock4.Close\r
End Sub\r
\r
\r
Посоветуйте что-нибудь, как вернуть счастливое мгновение работы winsock\'a . Может там с бубном вокруг компа походить надо или еще что .... Заранее благодарен за любой совет (кроме суицида), потому как мое воображение уже признало свое поражение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2003, 11:44
    #32249820
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Забыл вставить для полной картины Debug.Print? после нажатия подряд на все 3 кнопки:

Winsock4_Connect
220 Serv-U FTP Server v3.0 for WinSock ready...

Winsock4_SendComplete
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2003, 16:24
    #32250324
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
На соседнем компьютере написал такую же базу данных, запустил, результат нулевой - т.е. после коннекта и получения ответа 220 на любую другую посылку команд сервер отвечает молчанием... нашел в инете более старые версии mswinsk.ocx, поставил, результат тот же - мистика какая-та... :-(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2003, 17:09
    #32250429
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Есть такие мысли:
а) попробовать то же в VB (не VBA), если есть под рукой.
б) запустить 2 базы с 2-мя же сокетами на одной машине - один на прослушивание ("сервер"), другой на соединение к нему ("клиент")
- и посмотреть, как они будут себя вести.
После этого решать, где глюк - сервер или клиент барахлит...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2003, 18:04
    #32250553
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
VB6 тока дома, но там этот компонент с VB.net конфликтует, так что проверять могу только в VB.net - до FTP-сервака я из дома правда не достучусь, придется на другом экспериментировать.

Сервак и клиент - это мысль, забить свой же ip в RemoteHost клиента... ща попробую..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2003, 18:34
    #32250594
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Написал сервак и клиент. Натравил их друг на друга. Соединяются друг с другом, а потом посылаю данные и вот тут очень интересный момент происходит... на сервак приходит какая-то абракадабра из букв и символов, ща проверяю, смотрю...пока (вроде в .GetData sData, vbString - написал)...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2003, 18:54
    #32250617
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Спасибо Alexus12 за совет, попробовал организовать клиент-сервер систему и вот какие интересные результаты получал.

Чудеса какие-то...

Клиент посылает данные серваку, а на сервак приходит абракадабра, он ее тут же отсылает клиенту, и клиент получает все нормально, один в один как послал сервак. Т.е. сервак клиенту отправлят и клиент получает - нормально, а вот то что клиент отправляет серваку, то сервак получает какой-то бред.

Например:
посылаю серв. получает серв.
"a" & vbCrLf F ґп
"1" & vbCrLf F ґп
"2" & vbCrLf ьC ґп

или даже вот так
"2" & vbCrLf F ґп
"2" & vbCrLf ьC ґп
"2" & vbCrLf F ґп
"2" & vbCrLf ьC ґп
"2" & vbCrLf F ґп
"2" & vbCrLf ьC ґп
т.е. данные одни и те же посылаю, а приходят...

Непонимаю как это можно объяснить... какие могут варианты, а???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2003, 11:10
    #32251047
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Ага, эксперименты продолжаются... Переписал код клиент-сервер для Excel. Запустил, все нормально. Туда сюдя ходят нормальные данные.

Получается эта абракадабра с передачей от клиента серверу происходит только в Access (Xp).... Подскажите гуру, в каких настроках можно полазить, проверить что? ..... похоже на то что в базе как будто язык другой выбран при передачи данных....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2003, 11:27
    #32251069
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
напрашивается совет наподобие
"попробовать конверсию в юникод и обратно"
или
"передавать кодами символов, если цифры не глючат"
Но все это сильно снизит производительность.
очень странный глюк...
А языки в А. одинаковые стоят?
Гуру, помогайте!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2003, 11:47
    #32251111
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Пробовал:
1. Конвертир. обе базы в 2000. Результат - ничего.
2. Менял языки на вкладке Орофогр. Параметры (в обоих базах) - чуть другая абракадабра.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2003, 12:44
    #32251226
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Пробовал послать и принять vbLong, vbByte.

Туда и сюда приходил квадратик (переход каретки что-ли так показыв.)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2003, 15:39
    #32251651
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Как бредовое решение бредового глюка...

Данные текстового типа в свойстве PrtDevMode (как и всех остальных свойств,
обсуждаемых в этой главе) хранётсё в формате ANSI (т.е. по одному байту на
символ). В противоположность этому строки VBA имеют формат Unicode (два
байта на символ). Когда вы присваиваете ANSI-значение строковой переменной
VBA, оно автоматически преобразуетсё в формат Unicode, вследствие чего из
одного набора байтов образуетсё другой, бессмысленный длё вашего кода,
интерпретирующего его как структуру DEVMODE. Поэтому при написании кода,
работающего с текстовыми свойствами, мы были очень аккуратны и вместо
строковых переменных использовали байтовые массивы или переменные типа
Variant. Если же вы все-таки хотите работать с переменными типа String, им
можно присваивать значениё с помощью оператора LSet, что также позволит
избежать преобразованиё строк в формат Unicode. Подробное описание этой
технологии вы найдете в разделе “Использование оператора LSet длё копировани
ё неформатированных данных”.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2003, 16:58
    #32251812
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Интересно, пошамкаем... я правда один байт кидал используя константу vbByte, так на сервак какая-то пустота приходила, обратно на клиента тоже

А ты случайно у себя упрощенный кусок кода не запускал, интересно просто, он только на принадлежащих мне компьютерах не работает или вообще....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2003, 10:05
    #32252355
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Я как то пробовал работать с винсоком из аксесса.

мой вывод - какие-то проблемы с многопоточностью. тот же код в VB6 работает без проблем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2003, 11:58
    #32252483
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Мдамм... там что действительно не все в порядке.

Вообщем, забил пока на создание своего класса (VB6 на работе нет и принести проблема - охрана, блин) использую чужой компонент FTP (60 кб), работает безупречно,...........хотя, ну очень хотелось написать самому.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2003, 12:11
    #32252504
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Странно все это. Я как раз пишу подобие клиента для новостей (NNTP) и никаких проблем, подобных вашим нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2003, 14:45
    #32252739
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Тут есть мысль, что проблема в связке Win98+AccessXp, а у тебя случаем что стоит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2003, 15:04
    #32252767
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
Windows 2000 + Access XP
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2003, 15:19
    #32252796
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Схожу с ума иль восхожу...
На Win2000 значит работает, попробую у себя где-нибудь откапать тоже и проверить, но подозрения растут...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Схожу с ума иль восхожу... / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 385ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1679646]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 229ms
total:  385ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]