Здравствуйте. Подскажите!
Есть сайт, как, имея ссылку изображения на сайте в таком виде 'http://aaa.com/image/cache/no_image-110x110.jpg' , показать это изображение в программе?
С уважением, Александр
Картинки с сайта
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- ✯ Ветеран ✯
- Сообщения: 1703
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Картинки с сайта
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
- Admin
- Администратор
- Сообщения: 3962
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 27 раз
- Поблагодарили: 22 раза
- Контактная информация:
Re: Картинки с сайта
Код: Выделить всё
INCLUDE('WINSOCK.INC'),ONCE
Код: Выделить всё
Module('Windows API Functions')
CloseLONG(LONG),BOOL,PASCAL,PROC
CreateFile(*CSTRING,LONG,LONG,<*?>,LONG,LONG,LONG),LONG,PASCAL,RAW,NAME('CreateFileA')
InternetAttemptConnect(LONG),LONG,PASCAL
InternetCloseLONG(LONG), BOOL, PASCAL, PROC
!InternetOpen(*CSTRING,LONG,<*CSTRING>,<*CSTRING>,LONG),LONG, RAW, PASCAL, NAME('InternetOpenA')
InternetOpenURL(LONG, *CSTRING Url, <*CSTRING Headers>, LONG, LONG, LONG), LONG, RAW, PASCAL, PROC, NAME('InternetOpenUrlA')
InternetReadFile(LONG, *?, LONG, *LONG),BOOL, RAW, PASCAL, PROC
WriteFile(LONG,<*?>,LONG,*LONG,<*?>),BOOL,PASCAL,RAW,PROC
MultiByteToWideChar(long CodePage, long dwFlags, long lpMultiByteStr, long cbMultiByte, |
long lpWideCharStr, long cchWideCharStr),long,pascal
WideCharToMultiByte(long CodePage, long dwFlags, long lpWideCharStr, long cchWideChar, |
long lpMultiByteStr, long cbMultiByte, long lpDefaultChar, |
long lpUsedDefaultChar),long,pascal
lstrlenW(long lpWString),signed,proc,pascal
END
Код: Выделить всё
MyClass.GetFileFromHttp PROCEDURE(STRING RFN, STRING LFN)!,BYTE
BufferSize EQUATE(1024)
hSession LONG
hUrl LONG
hLocal LONG
BufferLength LONG
Result BYTE
Total LONG
MyUrl CSTRING(255)
LocalFile CSTRING(255)
Agent CSTRING('WebCopy 0.000002b')
Buffer GROUP
BYTE,DIM(BufferSize)
END
Dummy STRING(Buffersize),Over(Buffer)
CODE
MyUrl = CLIP(RFN)
LocalFile = CLIP(LFN)
hSession = InternetOpen(Agent,INTERNET_OPEN_TYPE_PRECONFIG,,,0);
IF hSession
hUrl = InternetOpenUrl(hSession, myUrl,,0,0,0)
IF hUrl
hLocal = CreateFile(LocalFile,GENERIC_READ+GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0)
Result = TRUE
LOOP
BUFFER = ALL('<0>')
InternetReadFile(hUrl, Buffer, Buffersize, BufferLength)
IF BufferLength <> 0 THEN
Total += BufferLength
IF ~WriteFile(hLocal, BUFFER, BufferLength, BufferLength)
MESSAGE('Ошибка при записи файла!','Внимание',ICON:Hand)
Result = FALSE
BREAK
END
END
UNTIL BufferLength = 0
InternetCloseHandle(hUrl)
CloseHandle(hLocal)
ELSE
Result = FALSE
END
InternetCloseHandle(hSession)
ELSE
Result = FALSE
MESSAGE('Ошибка при открытии двери в интернет! :)','Внимание',ICON:Hand)
END
RETURN(Result)
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
- morkovin
- Ветеран
- Сообщения: 909
- Зарегистрирован: 20 Июль 2005, 14:53
- Откуда: Volgograd, Russia
- Благодарил (а): 2 раза
- Поблагодарили: 3 раза
- Контактная информация:
Re: Картинки с сайта
Используй JHTML-template от StrategyOnline.(http://www.strategyonline.co.za/shop/j-html/)имея ссылку изображения на сайте в таком виде 'http://aaa.com/image/cache/no_image-110x110.jpg' , показать это изображение в программе
WBR, morkovin
-
- ✯ Ветеран ✯
- Сообщения: 1703
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Re: Картинки с сайта
Спасибо. Но для одного изображения, многовато будетmorkovin писал(а):Используй JHTML-template от StrategyOnline.(http://www.strategyonline.co.za/shop/j-html/)имея ссылку изображения на сайте в таком виде 'http://aaa.com/image/cache/no_image-110x110.jpg' , показать это изображение в программе
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
-
- ✯ Ветеран ✯
- Сообщения: 1703
- Зарегистрирован: 25 Март 2009, 21:55
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
Re: Картинки с сайта
Спасибо, самое оно!Admin писал(а):INCLUDE('WINSOCK.INC'),ONCE ......
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп