Каким образом принять данные от удаленного SMTP-сервера через API?

24.06.2007, 06:38. Показов 668. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Hi, All!

Каким образом принять данные от удаленного SMTP-сервера через API?

Портированный winsock у меня есть.
пишу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim S As String, B As Boolean
Dim SOCK&, FLAG As Long
   
    B = StartWinsock(S)
    
    SOCK = ConnectSock('www.myserver.com', 25, 0)
    '// 25 -номер порта
 
    B = ReceiveData(SOCK, S, FLAG)
    '//вот здесь ошибка
    
    EndWinsock

вот так описана функция чтения данных:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function ReceiveData(S As Long, ByRef strData As String, lngBytesReceived As Long) As Boolean
 
Const MAX_BUFF_SIZE = 10000
Dim Buff(0 To MAX_BUFF_SIZE) As Byte
Dim WSAResult As Long
    
    WSAResult = recv(S, Buff(0), MAX_BUFF_SIZE, 0)
    
    If WSAResult = SOCKET_ERROR Then
    '//SetLastErrorCode 'Error in RecvData::recv'
        strData = ''
        lngBytesReceived = 0
        ReceiveData = False
    Else
        lngBytesReceived = WSAResult
        Buff(lngBytesReceived) = 0
        strData = Left(StrConv(Buff(), vbUnicode), lngBytesReceived)
        ReceiveData = True
    End If
    
End Function

Декларация сделана следующим образом:

Visual Basic
1
Public Declare Function recv Lib 'wsock32.dll' (ByVal S As Long, buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long

Где ошибка?

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

24.06.2007, 06:38

Ответы с готовыми решениями:

Принять данные JSON с удаленного сервера
Добрый день, господа! Смотрите какая ситуевина. Есть удаленный сервак, который шлет постом данные каждую секунду (там скрипт на C#)....

Каким образом можно получать данные с long poll сервера
Каким образом можно получать данные с long poll сервера? Для примера сервер вк. Как я понял - составить URL, отправить запрос и ответ...

Каким образом проверить наличие MySQL сервера?
Каким образом можно проверить сам факт наличия в локальной сети MySQL сервера не зная ни порта ни пароля ?

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

24.06.2007, 06:38

Помогаю со студенческими работами здесь

Каким образом клиент получает ответ от DNS сервера?
Здравствуйте, я не совсем понимаю, как клиент получает ответ от DNS сервера. То есть, клиент отправляет запрос к серверу по UDP...

Каким образом настроить NAT с сервера на локальную машину?
Доброго времени суток, имеется в распоряжении машина с Win Server 2012, на которой имеется два сетевых порта, на один из них приходит PPPoE...

Получить данные из mySLQ с удаленного сервера
У меня на сайте есть база данных, подскажите как с ней работать? Можно пример? Нигде не нашел

Каким образом решать данные уравнения?
\sqrt{\sqrt{\sqrt{\sqrt{x-1}-1}-1}-1}=x В комментариях сказано рассмотреть решение для f(f(f(f(x))))=x, но как это понять (то что...

Каким образом можно сохранить данные в DLL?
Каким образом можно сохранить данные в DLL-е, т.е. пару ее свойств. Пробовал не получается :-( InitProperty происходит, а WriteProperty...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх