из интернета картинку в имедж загрузить?

[Лёка]

Ребят, а как с инета (с серверного сайта, зная путь к ней) картинку в имедж загрузить? и за одно бы проверять подключен ли комп к инету или нет?

[Stanislav]

Сообщение от Лёка

Ребят, а как с инета (с серверного сайта, зная путь к ней) картинку в имедж загрузить? и за одно бы проверять подключен ли комп к инету или нет?

Проверить подключен ли комп к инету я помогу а вот первый вопрос самого интересует....

Unit Unit1;
{Проверка соединения с и-нетом,
Автор: Scorp [scorpion@mail.kz]
http://web.host.kz/sources/
}

interface

uses
  Windows, WinSock, ShellApi, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, MMSystem, Spin, Gauges, StdCtrls,   ExtCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    WinClass: TWndClassA;
  Inst, Handle, ComboBox1, Button1: Integer;
  Msg: TMsg;
  hFont: Integer;
  addst:string;
  j, jj, ChildHandle : integer;




implementation

{Функция,Проверяем есть ли соед. с инетом}
function InInternet  : boolean;
Var
  i      : integer;
  S      : string;
  WSAData: TWSAData;
  Host   : PHostEnt;
begin
  result:=false;
  S := 'web.host.kz/sources/';
  i:=pos('http://', S); if i>0 then delete(S, 1, 7);
  i:=pos('/', S); if i>0 then delete(S, i, 255);
  if WSAStartup($101, WSAData) = 0 then
  begin
    Host := GetHostByName(@S[1]);
    result := Host<>nil;
    WSACleanUp;
  end;
  if not result then begin
    S:='www.comfort.host.kz';
    if WSAStartup($101, WSAData) = 0 then
    begin
      Host := GetHostByName(@S[1]);
      result := Host<>nil;
      WSACleanUp;
    end;
  end;
end;

{Функция проверки закончилась}

{$R *.DFM}





procedure TForm1.Button1Click(Sender: TObject);
begin
if (ininternet) then ShowMessage('ИМЕЕТСЯ!')
else
ShowMessage('Соединения с и-нетом не установленно!');

end;

end.

Или исходник  ниже

[mihali4]

Да нет, этот код, как и многие, неработоспособен. Ради любопытства проверил - всегда выдает, что подключено, хотя подключена только локалка, выхода в инет нету...
Хотя там и вводятся какие-то похожие на реальные адреса.
Вопрос муссируется уже много лет и вывод только один - единственный способ, дающий достоверный ответ - прямое пингование заведомо существующего адреса, например, www.rambler.ru.

[Stanislav]

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

Да нет, этот код, как и многие, неработоспособен. Ради любопытства проверил - всегда выдает, что подключено, хотя подключена только локалка, выхода в инет нету...
Хотя там и вводятся какие-то похожие на реальные адреса.
Вопрос муссируется уже много лет и вывод только один - единственный способ, дающий достоверный ответ - прямое пингование заведомо существующего адреса, например, www.rambler.ru.

Незнаю насчет ложности я сейчс сижу через прокси он мне выдает что не подключен... и локалка тоже подключена но когда выхожу по модеиу (любому) dial-up или ADSL пишет подключен..... тогда вопрос почему у всех по разному?

[One.Love]

Я думаю что картинку с веб сервака лучше загружать через Client Socket, Server Socket - сам ещё не пробовал но считаю этот вариант верным
Надо попробовать