Visual Basic 6.0 - Алгоритм base64

Hello, Terekhin!
You wrote in conference fido7.ru.visual.basic to "All"

(UTC):


[Sorry, skipped]

Разбиваешь на группы по 3 байта, каждая группа легко переводится в 4
символа:
Encode3 = Base64Char((Group \ 65536) And 255) & Base64Char((Group \ 256) And
255) & Base64Char(Group And 255)
Обратно так же.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)




Здравствуйте, A. Skrobov!




Да ничем не плохо. Просто сейчас его еще нет, и его нужно вставлять. А зачем
вставлять, если, к примеру, казенными средствами и так всё казённо
обрабатывается? Возвращает же ф-ция MsgBox значение нажатой кнопки? А чем
моя форма хуже MsgBox?...

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)
















Спасибо, уже разобрался: в свойствах data control стояло readonly=false.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)




Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0400:





Ух ты, а я даже и не знал... Спасибо :-)
А вот вычетать из NULL кружочек почему-то не выходит :-(
Так что прямоугольный регион по размеру формы всё равно придётся создавать.
И получается без разницы - NULLом сбрасывать, или им :-|


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)




Hello, Genrih!
You wrote in conference fido7.ru.visual.basic to "All"





Юзай Винсок: справка в МСДH, примеров в инете навалом, на vbrussian.com даже
статья есть.
Хинт: ставишь свою прогу сервером на 44405 порт и подключаешься игрой к ней,
а прогой уже - туда, куда нужно. И перекидываешь пакеты, поправляя как надо.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)




Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "All"







Покажи обработчики этих кнопок. Если что-то вроде
=========Beginning of the citation==============
Private Sub cmdOK_Click
Call SaveSetting (App.Title, "Section", "Key", txtValue.Text)
cmdCancel_Click
End Sub

Private Sub cmdCancel_Click
Unload Me
End Sub

=========The end of the citation================
(т.е. стандартно), то никак. Если у тебя там есть что-то дополнительное,
можно приспособить это что-то. Только зачем? Чем так плохо свойство
IsCancel?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)




Добрых дней, приятных ночей All!
Hужна помощь.
Сложность в том, что нужно "сростить" несколько двоичных чисел (по 6 бит).

а далее "порезать" на куски по 8 бит, преобразовать в байты и записать в
файл...

...как быть?..

=========Beginning of clipboard==============
Dim intPos, intNumb As Integer, strOut, strOutA As Integer, intVar As
Integer, byStep As Byte, strEx As String
Dim strExt(1 To 10) As String
Private Sub Command1_Click()
byStep = 0
intPos = 1
If intPos + 3 <= Len(Input) Then
Do
For intNumb = intPos To intPos + 3
intVar = Asc(Mid(Input, intNumb, 1))



If intVar = 43 Then strOut = 62
If (intVar = 47) Then strOut = 63
byStep = byStep + 1
strOutA = strOut
Do
strOut = strOutA
strOutA = Int(strOutA / 2)
strExt(byStep) = Trim(strExt(byStep) + Trim(Str(strOut - strOutA *
2)))
Loop Until strOutA <= 1
strExt(byStep) = Trim(strExt(byStep) + Trim(Str(strOutA)))
If Len(strExt(byStep)) < 6 Then
Do
strExt(byStep) = strExt(byStep) + "0"
Loop Until Len(strExt(byStep)) = 6
End If
strExt(byStep) = StrReverse(strExt(byStep))
Next intNumb
intPos = intNumb

Else
MsgBox "Пусто"
End If
For strOutA = 1 To Len(Input)
strEx = strEx + strExt(strOutA)
Next strOutA
Output = strEx
End Sub
=========The end of clipboard================

Можно как нибудь обойтись без строк?

--
__________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)




Здравствуйте, All!

Вызываю я из своей программы свою модальную форму. Hа ней, естественно, есть
кнопки "OK" и "Cancel". Могу ли я стандартным способом определить в
программе, по какой из этих кнопок завершена форма? Или я должен вставлять в
форму доп. свойства вроде "IsCancel" и проверять в программе эти свойства?

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)


Конструкция If myfunction(myargument) = False then lalala1 else lalala2

При возвращении false перескакивает на lalala2 :((

В чем причина? Я из-за этого столько времени и нервов потратил. :(

Конструкция If Not(myfunction(myargument)) then lalala1 else lalala2
работает, как часы.

ps. Это частный случай, раньше никогда такого не замечал, false возвращается совершенно однозначно, проверено дебагером.


* Origin: 1134 (2:5045/44.13)













Hе знаю, в памяти куча копий программы была. В ide все закрывалось.

После того, как добавил в выгрузку все таймеры остановить и все формы выгрузить - дуло исчезло (при простом анлоадинге программа не закрывается, но все выгрузки стоят перед End-ом)


* Origin: 1134 (2:5045/44.13)