[sandysman]

Всем добрый день, кто откликнется. Хочу для начала спросить, на какие объекты, функции, учебники мне стоит обратить внимание, для реализации взаимодействий Delphi с интернетом? (а именно скачка картинок с сайта.)

[NumLock]

вариантов много. вот некоторые из них:
WinINet InternetReadFile, Windows Sockets recv, TClientSocket, TIdHTTP...

[sandysman]

У меня такой вопрос появился, через idhttp я могу сделать следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Text:=idhttp1.Get(edit1.Text)
end;

.
то есть у меня в memo будет весь текст сайта, но как мне в элемент image так же запихать картинку с сайта, может сначала надо создать какой-то буфер и потом в него скинуть картинку а потом в обратном направлении в image?

[sandysman]

и еще просто смех не могу загрузить в iimage картинку, ни какой формат пишу:

Код:

image1.picture.loadfilefrom ('D:\i.jpg');

в чем может быть проблема?

[NumLock]

Код:

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;

[sandysman]

Сообщение от NumLock

Код:

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;

спасибо, а я то думал куда надо jpeg написать, везде написано юзес, чке то не допер, что это юнит)

[sandysman]

еще такой вопрос вот код:

Код:

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;

запускаю программу, при первом нажатии на кнопку все получается нормально, при вводе в edit следующей ссылки на картинку выходит ошибка что то типа 'http/1.401 not found', в чем может быть проблема, выделяет при ошибки строчку image1.Picture.LoadFromFile('i.jpg'); может это из-за совпадающих имен файлов в папке?