powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как перекачать графический файл из инета в general
3 сообщений из 3, страница 1 из 1
как перекачать графический файл из инета в general
    #32950762
gkrurd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ссылка на путь в наличии в одном из полей
(vfp6)
...
Рейтинг: 0 / 0
как перекачать графический файл из инета в general
    #32950803
Ilhom_uz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Скачать программно во временный файл, потом полученное как имидж вставить в general.
А в VFP9 есть другой тип данный (типа Blob). Там уже без ограничений как двоичное.
...
Рейтинг: 0 / 0
как перекачать графический файл из инета в general
    #32950835
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Изначально код был там http://forum.foxclub.ru/read.php?f=24&i=262&t=262&cp=2
Скачать можно примерно так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
 Declare integer InternetOpen in WinInet ;  
      String lpszAgent,;  
      INteger dwAccessType,;  
      String lpszProxyName,;  
      String lpszProxyBypass,;  
      Integer dwFlags  
    
  Declare Integer InternetCloseHandle in WinInet integer   
    
  Declare integer InternetReadFile in WinInet ;  
  	Integer hFile,;  
  	String @ lpBuffer,;  
  	Integer dwNumberOfBytesToRead,;  
  	Integer @ lpdwNumberOfBytesRead  
    
  Declare integer InternetOpenUrl in WinInet ;  
  	integer hInternet,;  
  	string lpszUrl,;  
  	string lpszHeaders,;  
  	integer dwHeadersLength,;  
  	integer dwFlags,;  
      integer dwContext  
    
  hInet=InternetOpen("FoxPro", 0 , 0 , 0 , 0 )  
    
  	hUrl=InternetOpenUrl(hInet,<URL Тута>, 0 , 0 , 0 , 0 )  
  	buf=Space( 65535 )  && Размер буфера под файл
  	out= 0   
  	hFile=InternetReadFile(hUrl,@buf, 65535 ,@out)  
	StrToFile(Left(buf,out),<Тут имя файла>)  
  	InternetCloseHandle(hFile)  
             InternetCloseHandle(hUrl)  
  InternetCloseHandle(hInet)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как перекачать графический файл из инета в general
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]