VBNet - Форум - ИЗ ВБ в С++

Вопрос: ИЗ ВБ в С++ Добавлено: 25.05.04 18:47

Автор вопроса: M@X

Кто нибудь может перевести этот код в сишный ?

Private ChetName As String
Private ChetName2 As String
Private ChetBalance As Integer
Public NewL As String
Public Cash As New DownloadFromContextMenu
Public Property Get GUrl() As String
GUrl = ChetName
End Property
Public Property Let GUrl(GUrl As String)
ChetName = GUrl
End Property
Public Property Get GInfo() As String
GInfo = ChetName2
End Property
Property Let GInfo(GInfo As String)
Dim fff As String
ChetName2 = GInfo
Call NewLink2(GInfo)
Cash.Url = "http://www.сервер.ру/" & NewL
Cash.Info = "Включаем докачку... " & vbCrLf & "Исходная ссылка: " & vbCrLf & GUrl
Cash.AddDownload
End Property
Public Sub NewLink2(Link As String)
Dim one, two As String
Dim Buffer1, Buffer2 As String
Buffer1 = Link
Buffer2 = ""
For i = 1 To Len(Buffer1)
one = Left(Buffer1, i)
two = Right(one, 1)
If Asc(two) >= 65 And Asc(two) <= 122 Or Asc(two) >= 46 And Asc(two) <= 57 Or Asc(two) = 95 Or Asc(two) = 45 Then
two = LCase(two)
Else
two = "_"
End If
Buffer2 = Buffer2 & two
Next i
NewL = Buffer2
End Sub
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 25.05.04 20:11
	> Public Cash As New DownloadFromContextMenu Что-то мне подсказывает, что это создание внешнего COM-объекта, что в VB делается парой строчек, а на Си - метрами кода... Ответить

Номер ответа: 2 Автор ответа: M@X Вопросов: 38 Ответов: 43	Профиль \| \| #2	Добавлено: 25.05.04 20:14
	Все верно - СОМ Ответить

Номер ответа: 3 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #3	Добавлено: 25.05.04 20:24
	VB работает с COM-объектами через интерфейсы IUnknown, потом IDispatch. За реализацией го МСДН. Ответить

Страница: 1 |