Современные решения

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

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

Visual Basic 6.0 - FileCopy информация


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

Hello, Vladimir!
You wrote to "A. Skrobov" <A. Skrobov [@] p16.f1003.n5080.z2.fidonet.org>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 <Sergey Merzlikin>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 <All>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" <calendarman [@] mtu-net.ru>


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 <Sergei Ho>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" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>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" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>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" <calendarman [@] mtu-net.ru>


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

Сергей.
* Origin: Demos online service (2:5020/400)

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

From: "Vladimir Ilyashenko" <fido7 [@] front.ru>

Reply-To: "Vladimir Ilyashenko" <fido7 [@] front.ru>


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

"_28_" _августа_ 2004 г. Sergey написал в <fido7.ru.visual.basic> на тему: *"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" <fido7 [@] front.ru>

Reply-To: "Vladimir Ilyashenko" <fido7 [@] front.ru>


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

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


VI>> Если не возвращает - имеется ли простенькая верификация скопированных

VI>> файлов?

AS> Я думаю, что просто Dir(destination) достаточно.


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

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



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