delphi 6 personal (download hjemmeside) uden extra komponenter

Shellexecute(Handle, \'OPEN\', PChar(\'www.jubii.dk\'), nil, nil, SW_SHOW);

eller nærmere bestemt sæt en label på din form, og på lablens OnClick event indsætter du ovenstående linie, du kan sætte lablens farve til blå og understreget under font

Du får lige hele koden for en god ordensskyld

bemærk du skal huske at tilføje shellapi under Uses, jeg har skrevet det med stort

unit Unit1;

interface

uses
  SHELLAPI, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
  Shellexecute(Handle, \'OPEN\', PChar(\'www.jubii.dk\'), nil, nil, SW_SHOW);
end;

end.

Den skulle gerne kunne gemme hjemmesiden og ikke vise den

gemme hjemmesiden, den består jo af HTML kode som din browserfortolker, svare det du vil lave til at højreklikke på en hjemmeside, og sige viskoder og derefter gemme dem i en fil ?

Hvis jeg trykker på vis og derefter på kilde i min interexplore, så kommer der en masse kode, det er der osse på www.jubii.dk hjemmeside, det er disse koder der skal gemmes i en file.

Hvis det kan hjælpe nogen jeg har følgende komponenter til internette som  må bruges, men jeg ved ikke hvordan.

ClientSocket1
ServerSocket1

tilføj wininet i uses

drop en memo1,edit1,button1

function DownloadFile(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  Result := \'\';
  NetHandle := InternetOpen(\'Delphi 5.x\', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt(\'Cannot open URL %s\', [Url]);

    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create(\'Unable to initialize Wininet\');
end;


procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
memo1.clear;
s := copy(edit1.text,1,7);
if  s = \'http://\' then
Memo1.Lines.Text := DownloadFile(edit1.text)
else
Memo1.Lines.Text := DownloadFile(\'http://\' + edit1.text)
end;

Stoney

Takker

Stoney