ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Схожу с ума иль восхожу...
19 сообщений из 19, страница 1 из 1
Схожу с ума иль восхожу...
    #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:40
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #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, 11:44
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #32250324
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
На соседнем компьютере написал такую же базу данных, запустил, результат нулевой - т.е. после коннекта и получения ответа 220 на любую другую посылку команд сервер отвечает молчанием... нашел в инете более старые версии mswinsk.ocx, поставил, результат тот же - мистика какая-та... :-(
...
Рейтинг: 0 / 0
28.08.2003, 16:24
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #32250429
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Есть такие мысли:
а) попробовать то же в VB (не VBA), если есть под рукой.
б) запустить 2 базы с 2-мя же сокетами на одной машине - один на прослушивание ("сервер"), другой на соединение к нему ("клиент")
- и посмотреть, как они будут себя вести.
После этого решать, где глюк - сервер или клиент барахлит...
...
Рейтинг: 0 / 0
28.08.2003, 17:09
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #32250553
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
VB6 тока дома, но там этот компонент с VB.net конфликтует, так что проверять могу только в VB.net - до FTP-сервака я из дома правда не достучусь, придется на другом экспериментировать.

Сервак и клиент - это мысль, забить свой же ip в RemoteHost клиента... ща попробую..
...
Рейтинг: 0 / 0
28.08.2003, 18:04
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #32250594
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Написал сервак и клиент. Натравил их друг на друга. Соединяются друг с другом, а потом посылаю данные и вот тут очень интересный момент происходит... на сервак приходит какая-то абракадабра из букв и символов, ща проверяю, смотрю...пока (вроде в .GetData sData, vbString - написал)...
...
Рейтинг: 0 / 0
28.08.2003, 18:34
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #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
28.08.2003, 18:54
| Ответить | Цитировать | Написать  
Схожу с ума иль восхожу...
    #32251047
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Ага, эксперименты продолжаются... Переписал код клиент-сервер для Excel. Запустил, все нормально. Туда сюдя ходят нормальные данные.

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

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

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

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

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

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


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