VBNet - Форум - Ковертация VB6 на Delphi 2009 :)

Вопрос: Ковертация VB6 на Delphi 2009 :) Добавлено: 29.06.10 10:08

Автор вопроса: Millenium | Web-сайт: www.aliyev.us | ICQ: 629966

Привет! Помогите сконвертировать код с VB6 на Delphi 2009 для лруга. Я в делфи не работал.

Заранее благодарен.

Private Sub Command1_Click()
    Dim obj As Object, cnt As Long, id As Variant, res As Variant, oo As Long, ee As String
    Dim expdt As Date, dt As Date

    '' Objeyi olu?tur
    Set obj = CreateObject("fyPostaGuvercini.GateToServer")
    '' ??lemi ba?lat
    Call obj.Start("usernamin", "password")
    ''SMS ekle
    Call obj.SmsInsert("055*******", "Test", Now)
    ''Hata kontrolu
    If obj.ErrorOccurred <> 0 Then
        MsgBox "HATA:" & obj.ErrorString(obj.ErrorOccurred)
        GoTo theEnd
    End If
    dt = DateAdd("n", 2, Now)       ' 2 dakika sonra g?nder
    expdt = DateAdd("n", 60, dt)    ' 60 dakika i?inde gitmezse iptal et
    Call obj.SmsInsert2("055*******", "Test2", dt, expdt)

    If obj.ErrorOccurred Then
        msgbox obj.ErrorString(obj.ErrorOccurred) & " ** " & obj.ErrorOccurred
        GoTo theEnd
    End If

    oo = obj.End()
    oo = obj.ErrorOccurred
    If oo <> 0 Then
        ee = obj.ErrorString(oo)
        msgbox "Hata: " & oo & " " & ee
        GoTo theEnd
    End If

    cnt = obj.ResultOfInsert(-1, id, res)
    For i = 1 To cnt
        oo = obj.ResultOfInsert(i - 1, id, res)
        msgvox id & " ** " & res
    Next

theEnd:
    Set obj = Nothing
End Sub

Ответить

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

Номер ответа: 1 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #1	Добавлено: 29.06.10 19:41
	Ну кто нибудь из драконов отзавётся? Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 29.06.10 19:59
	Зачем тебе Delphi? Ответить

Номер ответа: 3 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #3	Добавлено: 29.06.10 20:09
	Думаю четко написал что для друга. Видеш-ли попросили прогу написать, я написал. а он Делфин и вб-ные обьекты не понимает! Как ему там с обьектами работать? Ответить

Номер ответа: 4 Автор ответа: s12 Вопросов: 24 Ответов: 363	Профиль \| \| #4	Добавлено: 02.07.10 11:00
	А здесь это нужно? В твоем случае нужно найти\создать контрол который и будет выполнять роль object. Ответить

Страница: 1 |