|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
вопросы по взаимодействию Delphi с интернетом
Всем добрый день, кто откликнется. Хочу для начала спросить, на какие объекты, функции, учебники мне стоит обратить внимание, для реализации взаимодействий Delphi с интернетом? (а именно скачка картинок с сайта.)
|
#2
|
||||
|
||||
вариантов много. вот некоторые из них:
WinINet InternetReadFile, Windows Sockets recv, TClientSocket, TIdHTTP... Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
sandysman (02.04.2012)
|
#3
|
|||
|
|||
У меня такой вопрос появился, через idhttp я могу сделать следующее:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Text:=idhttp1.Get(edit1.Text) end; то есть у меня в memo будет весь текст сайта, но как мне в элемент image так же запихать картинку с сайта, может сначала надо создать какой-то буфер и потом в него скинуть картинку а потом в обратном направлении в image? |
#4
|
|||
|
|||
и еще просто смех не могу загрузить в iimage картинку, ни какой формат пишу:
Код:
image1.picture.loadfilefrom ('D:\i.jpg'); |
#5
|
||||
|
||||
Код:
uses jpeg, Image1.Picture.LoadFromFile('d:\Картинки\Фото - iPhone\IMG_0021.JPG'); Код:
var AMemoryStream: TMemoryStream; begin AMemoryStream:=TMemoryStream.Create; try IdHTTP1.Get('http://grafmoto.narod.ru/apple.bmp', AMemoryStream); AMemoryStream.Position:=0; Image1.Picture.Bitmap.LoadFromStream(AMemoryStream); finally AMemoryStream.Free; end; end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
sandysman (30.04.2012)
|
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
еще такой вопрос вот код:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin memo1:=tmemorystream.Create; try idhttp1.Get(edit1.Text, memo1); memo1.SaveToFile('i.jpg'); finally image1.Picture.LoadFromFile('i.jpg'); memo1.Free; end; end; |