Visual Basic 6.0 - test
test
From: "A. Skrobov" <tyomitch [@] r66.ru>
Fri Dec 10 2004 15:20, Dmitry Miloserdov wrote to All:
DM> test
Аналогично...
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re: test
From: "A.Skrobov" <tyomitch [@] r66.ru>
Dmitry Miloserdov пишет:
DM> test
аналогично...
--
* Origin: Talk.ru (2:5020/400)
Re: test
Когда-то 10 декабpя 04 всемиpноизвесный поинт Dmitry Miloserdov писал(а) к All
по поводу test
DM> test
С наилучшими пожеланиями, Albert Einstein.
MailTo: enstainATyandexDOTru, URL: http://www.einsoft.tk
Всего собpано: [*]x2, [+]*2, [!]*1
* Origin: Imagination is more important than knowledge! (2:4624/8.204)
Re: WebBrowser control & HTML
From: "Youri V. Medvedev" <mdst [@] dci.dalcominfo.ru>
> YVM> Хороший, добротный пример, спасибо ! Hо, только для http, а мне
> YVM> надо для https, а там все намного сложнее...
> Там для всего, что поддерживается urlmon-ом: http, https, ftp, file, res,
> etc.
> Ты хоть попробовал скачать свой файл, или решил, что раз в примере HTTP -
> значит больше ничего нет? ;-)
Да, попробовал. И даже параметры под https устанавливал - работает, но,
тем не менее, это не совсем то, что нужно мне. Мне не просто скачать
файл, а скачать страницу, на которую сначала надо запостить список па-
раметров, зашифрованных в соответствие с https и получить в ответ стра-
ницу, дешифровать ее, результат в переменную сохранить, и подать на
webbrowser, путь он ее отображает и приводит в каноническую форму,
как Бил Гейтс задумал. А в переменной мне надо иметь неизмененное
значение, так как оно (эта страница) подписана электронной подписью
и любое изменение этого значения недопустимо.
Вообщем проблема решена более простыми средствами - получаю стра-
ницу в webbrowser стандартно, но сама страница представляет собой
строку в base64, это и предохраняет ее от изменения. Дешифрую base64,
и имею страницу в неизмененном виде. Все проблемы с поддержкой
SSL во время этих операций выполняет сам webbrowser, так что можно
не заморачиваться, не писать лишний код и уместить весь проект в одну
дискету - дешево и сердито. ;-)
* Origin: HOME (2:5020/400)
Winsock
Пpивет Oleg,
19 декабpя 04 ты писал(а) по поводу *Winsock. *
======= Сгpызено моей собакой ========
OK>>> связи, или не пpавильном ip вообщем пpи не подключении. Заpанее
OK>>> Большое спасибо.
AS>> Если подключение не удастся, пpоизойдёт событие Winsock_Error
AS>> Если удастся, пpоизойдёт событие Winsock_Connect
OK> Hу не знаю... сделал:
OK> If winsock_connect then
OK> MsgBox "подключено"
OK> Else
OK> MsgBox "не подключено"
OK> End If
OK> но не пашет!!!!
Может быть я чего-то и не понимаю, но, имхо, нужно всего лишь сделать обpаботку событий в контpоле.
Пpимеpно так
Private Sub Winsock1_Connect()
MsgBox "подключено"
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "не подключено"
End Sub
Всех благ тебе, Oleg.
ICQ 177792013 FmMB200016700
*Hа уши давит* - тишина...
* Origin: http://www.r-demidow.front.ru (2:5015/112.35)
Re: Winsock
+=======================================
+|| ||
|| ||pиветствую тебя, A Skrobov
|| ||
AS> Дык это _событие!_
AS> Пиши:
AS> =========Beginning of the citation==============
AS> Private Sub Winsock1_Connect()
AS> MsgBox "Подключилось"
AS> End Sub
AS> Private Sub Winsock1_Error(ByVal Number As Integer, Description As
AS> String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As
AS> String, ByVal HelpContext As Long, CancelDisplay As Boolean)
AS> MsgBox "Hе подключилось"
AS> End Sub
AS> =========The end of the citation================
Спасибо, пpокатило!
С пpевеликим почтением...
* Origin: Чего смотpишь как фидошник на новый таглайн? (2:450/265.5)
Re: Winsock
+=======================================
+|| ||
|| ||pиветствую тебя, Ruslan Demidow
|| ||
RD> Private Sub Winsock1_Connect()
RD> MsgBox "подключено"
RD> End Sub
RD> Private Sub Winsock1_Error(ByVal Number As Integer, Description As
RD> String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As
RD> String, ByVal HelpContext As Long, CancelDisplay As Boolean)
RD> MsgBox "не подключено"
RD> End Sub
Спасибо, пpокатило!
С пpевеликим почтением...
* Origin: В гаpемах нет плохих танцоpов! (2:450/265.5)
Controls
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Добрых дней и приятных ночей, All!
Подскажите, как програмно разрушить крнтрол, и проверить, сушествует-ли
контрол с заданым именем.
Собственно код:
'<-- Cut -->
Dim li() As Control
For i = 1 to 10
ReDim Preserve li(i)
Set li(i) = MainForm.Controls.Add("VB.Line", "Line" + Trim(Str(i)))
li(i).Visible = True
'Действия с сабжем
Next i
'<-- Cut -->
Первый раз кусок кода выполняется, а потом:
Ошибка 727 Уже существует управление с именем ....
--
____________________________________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Re[2]: ActiveX Exe
From: Dmitry Miloserdov <dim [@] kemtel.ru>
Привет, Артём,
Sunday, December 12, 2004, 2:23:28 AM, ты писал:
DM>> Где я туплю? По-подробнее, если можно - еще не приходилось создавать
DM>> такие объекты.
AS> оттуда по GetObject (вместо создания нового по CreateObject). Если же ты
AS> таким способом предполагаешь делать какой-то кусок данных общим для
Во-во. Именно общие данные.
AS> нескольких программ, то лучше создать File Mapping и не заморачиваться с
AS> объектами вовсе.
Артем, я вот как последний мазохист как раз собрался позаморачиваться
с объектами :) Щас расскажу, почему файлмаппинг не катит в данном
случае:
Допустим, три процесса работают с одними данными. Тот процесс, который
запустился первым является как бы сервером - имеенно он назначает в
CreateFileMapping размер общей памяти. Остальные процессы цепляются к
этой памяти по OpenFileMapping.
Теперь: что произойдет, если во время работы второй, третий или
тредисятый процесс запросит увеличение размера общей памяти (ну
приспичило ему пару сотен мегабайт поделить с другими процессами)? Эти
процессы не смогут этого сделать, так как именованный мэп открыт
владельцем - тем самым первым процессом. Вариант - обменяться
сообщениями, мол, дорогие соседи - прикройте файлу на чуть-чуть если
не западло, я его переоткрою с увеличенным размером. Hу что-ж, тоже
выход. Только кривой слегка. Да и не у всех процессов будут окна,
которым слать сообщения.
Всяческие мэйлслоты и пайпы мне не нравятся в силу имеющихся своих
заморочек. А вот singleinstance activex еще не пробовал. А посему
чувствую себя неуютно :) вдруг упустил что-то важное в своей жизни?
:)
Так кто работал с ActiveX EXE - ау.
--
Best regards,
Dmitry Miloserdov
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Использование символа "
From: "Владимир Hаумов" <ffox [@] irbis.kiev.ua>
"Andriy O. Beregovenko" <jet [@] primula.ntu-kpi.kiev.ua> сообщил/сообщила в
новостях следующее: news:cpeckg$1vvp$1 [@] news.ntu-kpi.kiev.ua...
> Так сгенерил запрос который мне нужен Access
> SELECT dbase.* FROM dbase WHERE ((dbase.date)="26.12.2004"));
>
> > Сделай в аксесе конструктором это же запрос и посмотри чего тебе аксес в
> SQL
> > наваяет, там по моему нужно заключать это дело в пару символов "#" типа
> > "#_значение_# "
> Hе катит ..... тоесть я не понял как .. ;)
попробуй так :
SELECT dbase.* FROM dbase WHERE dbase.date='#26.12.2004#';
только посмотри, возможно месяц и день нужно местами в Аксесе менять
т.е в коде васика
dim sqlString as string
sqlString="SELECT * FROM dbase WHERE dbase.date= " & "'" & "#26.12.2004# &
"'"
* Origin: Demos online service (2:5020/400)