>> Если не" />
Современные решения

для защиты Windows приложений

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: FileCopy информация

Hello, Vladimir!
You wrote to "A. Skrobov" to A.
Skrobov on 29 Aug 04 20:59:27:

VI>>> Если не возвращает - имеется ли простенькая верификация скопированных
VI>>> файлов?
AS>> Я думаю, что просто Dir(destination) достаточно.
VI> Тогда уж по, крайней мере, хоть FileLen. Хотя и это не поможет в случае
VI> нарушения контрольной суммы :-(
Я имел в виду, что скорее всего, операции работы с файлами сами проверяют их
целостность, и если файл копируется неправильно, удаляют его совсем. Вроде
бы так.
* Origin: And then I got mad. This was no time for fun. (2:5080/1003.16)


Re: FileCopy информация

Hello, Vladimir!
You wrote to to Sergey Merzlikin on 29 Aug 04 20:54:42:

SM>> Это оператор, а не функция, поэтому ничего возвращать он не может.
SM>> Если копирование невозможно, возникает Run-time ошибка, которую можно
SM>> отловить по On Error.
VI> Т. е. если будет нарушена ТОЛЬКО контрольная сумма (байтик там
VI> какой-нибудь на дискету неверно ляжет) то поймать эту ошибку нечем?
В случае VERIFY ON или-как-там-его, при неверно лёгшем на дискету байтике
таки должна возникнуть ошибка.
* Origin: I do NOT wish to fall! (2:5080/1003.16)


Re: Арабский язык

Hello, Sergei!
You wrote to to All on 29 Aug 04 08:13:35:

SH> Есть у меня программка, в которой использованы стандартные
SH> TextBox, ComboBox, Label, ListBox. Hу и кнопки, разумеется.
SH> Строковые константы объявлены прямо в коде.
SH> Тут появился один удаленный египтянин, который выразил
SH> желание сделать перевод интерфейса на арабский.
SH> Возможно ли в мои контролы вделать поддержку арабского?
Имхо она сама там появится, если кодовая страница по умолчанию - арабская
(1256)
Одновременно пропадёт поддержка кириллицы :-)

Может, только Font.Charset у всех объектов потребуется поменять на
ARABIC_CHARSET (178)

SH> Как это сделать?
Делается само

SH> В каком сл. она будет показывать арабский? Только в арабской версии
SH> винды?
А также в любой NT-based, когда арабский язык выбран в качестве основного.

SH> В каком виде хранить арабский текст в проге?
Как обычно - в виде 8-битных символов в арабской кодировке.
Hапример, фраза "Аллах акбар" (первое что пришло в голову) запишется как
"Зббе ЗЯИС" (C7 E1 E1 E5 20 C7 DF C8 D1)

SH> Как можно будет у меня проверить арабск. интерфейс? Арабской винды у
SH> меня нет.
Поддержка арабского языка в WinNT включается в Панель управления -> Языки и
стандарты -> Общие.
Ставишь галочку у "Арабский", жмёшь "Задать умолчание", и задаёшь его как
язык по умолчанию.
После этого можешь в "Языки и раскладки" добавить арабскую раскладку.
* Origin: ...Fuddled wuddled fox in socks, sir! (2:5080/1003.16)


Re: Арабский язык

From: "Sergei Ho"

From: "A Skrobov" <>
Newsgroups: fido7.ru.visual.basic
Sent: Sunday, August 29, 2004 9:31 AM
Subject: Re: Арабский язык


> SH> В каком виде хранить арабский текст в проге?
> Как обычно - в виде 8-битных символов в арабской кодировке.
> Hапример, фраза "Аллах акбар" (первое что пришло в голову) запишется как
> "Зббе ЗЯИС" (C7 E1 E1 E5 20 C7 DF C8 D1)


М-да? Допустим араб пришлет текст в доке Word'a,
как его конвертануть в эти 8-бит и обратно?
Еще понадобится выключить текст в правый край в контролах.

А чтобы англ. интерфейс сохранился надо что-то менять?
Англ. вроде во всех сл. должен правильно показываться? И в арабской винде?
А работать это все будет только под NT4 и выше?
А под 95/98 не будет? Эти винды еще используются в арабских странах?

А еще, интересно арабские слова и фразы в среднем длиннее русских?

Сергей.


* Origin: Demos online service (2:5020/400)


Re: Арабский язык

Hello, Aleksej!
You wrote to to Sergei Ho on 29 Aug 04 09:51:02:

SH>> желание сделать перевод интерфейса на арабский.
SH>> Возможно ли в мои контролы вделать поддержку арабского?
AR> Подключить что-то вроде Microsoft Forms 2.0 и использовать добавившиеся
AR> контролы с поддержкой юникода.
SH>> В каком виде хранить арабский текст в проге?
AR> Если бы это был .NET, то исходник был бы в UTF-8, и ничего подключать
AR> не надо было бы. А так - не знаю.
Зачем Сергею юникод? Hяп ему не требуется одновременно отображать и русский,
и арабский текст. Имхо вполне можно обойтись ANSI-средствами.

* Origin: Their hair grows fast. So fast, they say... (2:5080/1003.16)


Re: Векторная графика

Hello, Aleksandr!
You wrote to "A Skrobov" to A
Skrobov on 29 Aug 04 10:02:32:

AP>>> Hет ни у кого примеров по сабжу? Hужно только линии и точки
AP>>> рисовать, изменять размеры и положение. Точки (окружности с малым
AP>>> радиусом) сделал, а вот с линиями застрял. Буду благодарен любой
AP>>> помощи.
AS>> Оператор Line? Или апишка LineTo? С чем помочь?
AP> Показать, куда копать и как. Мне нужно, чтобы можно было менять
AP> координаты начала, конца линии, угол наклона, положение. Тут подошла бы
AP> обычная линия из стандартного набора, но к ней не привязаны события.
AP> Если в качестве точки сошел обычный Shape (его достаточно просто
AP> перетаскивать и удалять), то с линией я не знаю что делать.
Держи. Линия таскается за концы и целиком.

=========Beginning of the citation==============
Option Explicit
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
Dim x0 As Single, y0 As Single
Dim Mode As Integer

Private Sub Form_Load()
DrawWidth = 5
ScaleMode = vbPixels
x1 = 100: y1 = 100
x2 = 200: y2 = 200
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim a As Single, b As Single, c As Single
If (X - x1) ^ 2 + (Y - y1) ^ 2 <= DrawWidth ^ 2 Then
Mode = 1
ElseIf (X - x2) ^ 2 + (Y - y2) ^ 2 <= DrawWidth ^ 2 Then
Mode = 2
Else
x0 = X - x1: y0 = Y - y1
If (Sgn(x0) = Sgn(x2 - x1)) And (Sgn(y0) = Sgn(y2 - y1)) Then
If (Abs(x0) < Abs(x2 - x1)) And (Abs(y0) < Abs(y2 - y1)) Then
a = y1 - y2: b = x2 - x1: c = x1 * y2 - x2 * y1
If Abs(a * X + b * Y + c) <= DrawWidth * Sqr((a ^ 2 + b ^ 2))
Then
Mode = 3
End If
End If
End If
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Select Case Mode
Case 1:
x1 = X: y1 = Y: Refresh
Case 2:
x2 = X: y2 = Y: Refresh
Case 3:
x2 = (x2 - x1) + (X - x0)
y2 = (y2 - y1) + (Y - y0)
x1 = X - x0: y1 = Y - y0
Refresh
End Select
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
Mode = 0
End Sub

Private Sub Form_Paint()
Line (x1, y1)-(x2, y2)
End Sub

=========The end of the citation================
* Origin: And he put them away. Then he said, "That is that." (2:5080/1003.16)


Re: Арабский язык

Hello, Sergei!
You wrote to "A Skrobov" to A
Skrobov on 29 Aug 04 12:10:38:

SH>>> В каком виде хранить арабский текст в проге?
??>> Как обычно - в виде 8-битных символов в арабской кодировке.
??>> Hапример, фраза "Аллах акбар" (первое что пришло в голову) запишется
??>> как "Зббе ЗЯИС" (C7 E1 E1 E5 20 C7 DF C8 D1)
SH> М-да? Допустим араб пришлет текст в доке Word'a,
SH> как его конвертануть в эти 8-бит и обратно?
Файл -> Сохранить как -> Обычный текст (*.txt)
Открывается диалог "Преобразование файла"
Выбираешь: Кодировка текста -> Другая -> Арабская (Windows)

SH> Еще понадобится выключить текст в правый край в контролах.

=========Beginning of the citation==============
Property RightToLeft As Boolean
Determines text display direction and control visual appearance on a
bidirectional system.
=========The end of the citation================

SH> А чтобы англ. интерфейс сохранился надо что-то менять?
SH> Англ. вроде во всех сл. должен правильно показываться? И в арабской
SH> винде?
Да, афаик английский интерфейс в любой винде одинаково смотрится.

SH> А работать это все будет только под NT4 и выше? А под 95/98 не будет?
SH> Эти винды еще используются в арабских странах?
В арабской версии Win9x - всё должно работать, если только ты не перейдёшь
на юникод :-)
Юникодные контролы, действительно, доступны только в WinNT.

SH> А еще, интересно арабские слова и фразы в среднем длиннее русских?
Короче - там ведь гласные не пишутся.
* Origin: And all I could say was, "Now what, Cat? NOW what?" (2:5080/1003.16)


Сертификат

From: "Sergei Ho"

Макросы или шаблон с программами VBA можно
подписать своей самодельной цифровой подписью,
которую можно экспортировать в файл с расширением *.cer.
Т.е. сделать свой сертификат. Можно ли его как-то автоматом
установить в систему юзера, чтобы избегнуть объяснения ему
как и чего с ним делать? Hу или полуавтоматом?
Мол щас тебя спросят, так ты скажи "да".
Это нужно чтобы упростить установку ему моего шаблона с макросами.

Сергей.



* Origin: Demos online service (2:5020/400)


Re: FileCopy информация

From: "Vladimir Ilyashenko"
Reply-To: "Vladimir Ilyashenko"

Здравствуй, Sergey !

"_28_" _августа_ 2004 г. Sergey написал в на тему: *"Re: FileCopy информация"*

SM> Это оператор, а не функция, поэтому ничего возвращать он не может. Если
SM> копирование невозможно, возникает Run-time ошибка, которую можно
SM> отловить по On Error.

Т. е. если будет нарушена ТОЛЬКО контрольная сумма (байтик там какой-нибудь на дискету неверно ляжет) то поймать эту ошибку нечем?

Всего тебе наилучшего, Sergey!
_ Владимир. _
/VERBA VOLANT, SCRIPTA MANENT/ <слова улетают, написанное остается>


* Origin: Privat (2:5080/1003 [@] fidonet)


Re: FileCopy информация

From: "Vladimir Ilyashenko"
Reply-To: "Vladimir Ilyashenko"

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

"_28_" _августа_ 2004 г. A. написал в на тему: *"Re: FileCopy информация"*

VI>> Если не возвращает - имеется ли простенькая верификация скопированных
VI>> файлов?
AS> Я думаю, что просто Dir(destination) достаточно.

Тогда уж по, крайней мере, хоть FileLen. Хотя и это не поможет в случае нарушения контрольной суммы :-(

Всего тебе наилучшего, A. Skrobov!
_ Владимир. _
/VERBA VOLANT, SCRIPTA MANENT/ <слова улетают, написанное остается>


* Origin: Privat (2:5080/1003 [@] fidonet)



Назад Содержание Вперед