Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Использование cURL в VB Добавлено: 05.02.11 17:20  

Автор вопроса:  Vasilich48

Ответить

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

Номер ответа: 16
Автор ответа:
 Vasilich48



Вопросов: 2
Ответов: 10
  Профиль | | #16 Добавлено: 06.02.11 16:26
не получается у меня прикрутить libcurl.dll к Бейсику ... пришлось использовать curl.exe с сохранением контента в файл ... через задницу, конечно, но за то можно использовать все возможности curl ...

Ответить

Номер ответа: 17
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #17 		Добавлено: 06.02.11 16:55
В том примере, на который я ссылку кидал, явная ошибка - добавление строк в несозданный список. Вот рабочий пример наваял:
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.     Dim context As Long, hHeaders As Long
  5.     If b(context, vbcurl_easy_init()) Then
  6.         If b(hHeaders, vbcurl_slist_create()) Then
  7.             vbcurl_slist_append hHeaders, "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7"
  8.             vbcurl_slist_append hHeaders, "Accept-Language: ru,en-us;q=0.7,en;q=0.3"
  9.             If vbcurl_easy_setopt(context, CURLOPT_HTTPHEADER, hHeaders) = CURLE_OK Then
  10.                 Debug.Print "Headers set successfully"
  11.             Else
  12.                 Debug.Print "ERROR! Couldn't set headers"
  13.             End If
  14.             vbcurl_slist_free hHeaders
  15.         Else
  16.             Debug.Print "ERROR! Couldn't create slist"
  17.         End If
  18.         vbcurl_easy_cleanup context
  19.     Else
  20.         Debug.Print "ERROR! Couldn't create context"
  21.     End If
  22. End Sub
  23.  
  24. Private Sub Form_Load()
  25.     ChDir "..\bin\"
  26. End Sub
  27.  
  28. Public Function b(p1 As Long, p2 As Long) As Boolean
  29.     p1 = p2
  30.     b = CBool(p1)
  31. End Function

Ответить

Номер ответа: 18
Автор ответа:
 Vasilich48



Вопросов: 2
Ответов: 10
  Профиль | | #18 Добавлено: 06.02.11 17:51
да ... всё работает ... спасибо огромное! ... честно говоря, уже практически похоронил эту идею ...

Ответить

Номер ответа: 19
Автор ответа:
 udn79



Вопросов: 2
Ответов: 95
  Профиль | | #19 Добавлено: 08.02.11 11:51
Лучше всегда, использовать встроенные методы

например Объект Inet1, поддерживает те же функции и проблем не вызывает.
Хотите вызывать напрямую используйте WININET.DLL, не загружая Internet Transfer Control

Ответить

Номер ответа: 20
Автор ответа:
 udn79



Вопросов: 2
Ответов: 95
  Профиль | | #20 Добавлено: 08.02.11 11:53
Простите не сюда попал(

Ответить

Номер ответа: 21
Автор ответа:
 udn79



Вопросов: 2
Ответов: 95
  Профиль | | #21 Добавлено: 08.02.11 11:54
А вообще то сюда))

Ответить

Номер ответа: 22
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #22 		Добавлено: 08.02.11 13:10
curl, как мне понимается, более низкоуровневый, чем любые встроенные инструменты

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам