Læse fra Hjemmesider...

Det ved jeg ikke om man kan, men jeg plejer bare at lave en txt fil på webserveren, hente den via delphi, og indlæse den i en memo eller noget andet, og bagefter få ens program til selv at slette filen når den er indlæst. (hele den proces bliver udført på under 2sek)

Jo selvfølgelig kan man da hente fra en hjemmeside! Det er vel ingen grænser på hvad man ikke kan i Delphi, det er bare spørgsmål om fantatsi.

Men jeg vil da lige komme lidt ind på hvad du skal bruge og så en smule kode

 unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end; 


function ClearForHTML(SourceFile: string; Line: Integer): string;
label redo;
label done;
var
  handler: string;
  stringlist:Tstringlist;
begin
  If fileexists(Sourcefile) then
  begin
    stringlist := Tstringlist.create;
      try
        stringlist.LoadFromFile(Sourcefile);
        handler := stringlist[Line];
redo:
            delete(handler,pos('<', handler),pos('>', handler));
            if not pos('<', handler) >= pos('>', handler) then goto done;
            if pos('<', handler) > 0 then goto redo; //hvis der stadig er < i teksten så hoppes der til redo: !
done:
      finally
      stringlist.Free;
      Result := handler;
      end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('http://www.tips.dk/spil/lotto/indhold/vindertal_lotto.html','c:\\temp.tmp');
  label1.Caption := Copy(ClearForHtml('c:\\temp.tmp', 52),4, Length(ClearForHtml('c:\\temp.tmp', 52))); //Smider vindertallene ind i en label (fjerner 3 tegn som bare er tabulatorer
end;

end.

så til lidt forklareing, den første er en function som "bare" skal være der... men det som jeg lige vil fortælle lidt om er at vi her henter ugens lottotal ned i en label så nemt er det!

men HUSK i users skal du have URLmon addet!

/Kallesen
¤¤¤Vi lære kun så længe vi lever¤¤¤

Nåe du bliver endnu bedre og gerne vil kunne lidt ekstra, så kan du bruge XML filer, som er utrolig godt og giver en god struktur over de dataer du skal have. En anden mulighed (mere simpel) er brugen af ini filer.

Det ved jeg ikke om man kan, men jeg plejer bare at lave en txt fil på webserveren, hente den via delphi, og indlæse den i en memo eller noget andet, og bagefter få ens program til selv at slette filen når den er indlæst. (hele den proces bliver udført på under 2sek)

Det ved jeg ikke om man kan, men jeg plejer bare at lave en txt fil på webserveren, hente den via delphi, og indlæse den i en memo eller noget andet, og bagefter få ens program til selv at slette filen når den er indlæst. (hele den proces bliver udført på under 2sek)

Jo selvfølgelig kan man da hente fra en hjemmeside! Det er vel ingen grænser på hvad man ikke kan i Delphi, det er bare spørgsmål om fantatsi.

Men jeg vil da lige komme lidt ind på hvad du skal bruge og så en smule kode

Kode 

 unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end; 


function ClearForHTML(SourceFile: string; Line: Integer): string;
label redo;
label done;
var
  handler: string;
  stringlist:Tstringlist;
begin
  If fileexists(Sourcefile) then
  begin
    stringlist := Tstringlist.create;
      try
        stringlist.LoadFromFile(Sourcefile);
        handler := stringlist[Line];
redo:
            delete(handler,pos('<', handler),pos('>', handler));
            if not pos('<', handler) >= pos('>', handler) then goto done;
            if pos('<', handler) > 0 then goto redo; //hvis der stadig er < i teksten så hoppes der til redo: !
done:
      finally
      stringlist.Free;
      Result := handler;
      end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('http://www.tips.dk/spil/lotto/indhold/vindertal_lotto.html','c:\\temp.tmp');
  label1.Caption := Copy(ClearForHtml('c:\\temp.tmp', 52),4, Length(ClearForHtml('c:\\temp.tmp', 52))); //Smider vindertallene ind i en label (fjerner 3 tegn som bare er tabulatorer
end;

end.

så til lidt forklareing, den første er en function som "bare" skal være der... men det som jeg lige vil fortælle lidt om er at vi her henter ugens lottotal ned i en label så nemt er det!

men HUSK i users skal du have URLmon addet!

/Kallesen
¤¤¤Vi lære kun så længe vi lever¤¤¤

Ands

Ok.. Det virker alt sammen, men det er bare lidt for advanceret for mig..

Det ved jeg ikke om man kan, men jeg plejer bare at lave en txt fil på webserveren, hente den via delphi, og indlæse den i en memo eller noget andet, og bagefter få ens program til selv at slette filen når den er indlæst. (hele den proces bliver udført på under 2sek)

Jo selvfølgelig kan man da hente fra en hjemmeside! Det er vel ingen grænser på hvad man ikke kan i Delphi, det er bare spørgsmål om fantatsi.

Men jeg vil da lige komme lidt ind på hvad du skal bruge og så en smule kode

Kode 

 unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end; 


function ClearForHTML(SourceFile: string; Line: Integer): string;
label redo;
label done;
var
  handler: string;
  stringlist:Tstringlist;
begin
  If fileexists(Sourcefile) then
  begin
    stringlist := Tstringlist.create;
      try
        stringlist.LoadFromFile(Sourcefile);
        handler := stringlist[Line];
redo:
            delete(handler,pos('<', handler),pos('>', handler));
            if not pos('<', handler) >= pos('>', handler) then goto done;
            if pos('<', handler) > 0 then goto redo; //hvis der stadig er < i teksten så hoppes der til redo: !
done:
      finally
      stringlist.Free;
      Result := handler;
      end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile('http://www.tips.dk/spil/lotto/indhold/vindertal_lotto.html','c:\\temp.tmp');
  label1.Caption := Copy(ClearForHtml('c:\\temp.tmp', 52),4, Length(ClearForHtml('c:\\temp.tmp', 52))); //Smider vindertallene ind i en label (fjerner 3 tegn som bare er tabulatorer
end;

end.

så til lidt forklareing, den første er en function som "bare" skal være der... men det som jeg lige vil fortælle lidt om er at vi her henter ugens lottotal ned i en label så nemt er det!

men HUSK i users skal du have URLmon addet!

/Kallesen
¤¤¤Vi lære kun så længe vi lever¤¤¤

Ands

Ok.. Det virker alt sammen, men det er bare lidt for advanceret for mig..

Det ved jeg ikke om man kan, men jeg plejer bare at lave en txt fil på webserveren, hente den via delphi, og indlæse den i en memo eller noget andet, og bagefter få ens program til selv at slette filen når den er indlæst. (hele den proces bliver udført på under 2sek)

Ands

Jeg fatter ikke sså meget af det andet svar... Kan du ikke lige forklare mig hvordan man downloader en txt. fil ned til ens computer, og bagefter slettet den igen..... Helst hver for sig(Slette og downloade);

Hvordan man downloader en fil:

Tilføj URLMon i uses.

Dette skal stå under: implementation, i toppen af din kode:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end


Dette kan fks. være koden til din knap eller hvad du nu ellers bruger:

if DownloadFile('http://www.server.dk/minfilfil', 'C:\\minfil.fil') then
ShowMessage('Filen er downloaded.')
else
ShowMessage('Kunne ikke downloade filen.');





Sletning af fil:
DeleteFile('C:\\minfil.fil');



(jeg vidste ikke hvordan man laver kode eksempler)

[Redigeret d. 21/12-03 12:31:24 af Kasper Færch Mikkelsen]

[Redigeret d. 21/12-03 12:31:39 af Kasper Færch Mikkelsen]

jeg vidste ikke hvordan man laver kode eksempler)

Man laver kode eksempler v.h.a. [pre ] og [/pre ] uden mellemrum.

---
Hilsen Anders

jeg vidste ikke hvordan man laver kode eksempler)

Man laver kode eksempler v.h.a. [pre ] og [/pre ] uden mellemrum.

---
Hilsen Anders

Hej
Jeg har forsøgt, at få jeres projekt til at fungere.
Men det lykkes ikke.
Se venligt kodeeksemplet og fortælle hvad jeg gør galt eller der mangler!
Bruger Delphi 6.

 unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end;


function ClearForHTML(SourceFile: string; Line: Integer): string;
label redo;
label done;
var
  handler: string;
  stringlist:Tstringlist;
begin
  If fileexists(Sourcefile) then
  begin
    stringlist := Tstringlist.create;
      try
        stringlist.LoadFromFile(Sourcefile);
        handler := stringlist[Line];
redo:
            delete(handler,pos('<', handler),pos('>', handler));
            if not pos('<', handler) >= pos('>', handler) then goto done;
            if pos('<', handler) > 0 then goto redo; //hvis der stadig er < i teksten så hoppes der til redo: !
done:
      finally
      stringlist.Free;
      Result := handler;
      end;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile('http://www.tips.dk/spil/lotto/indhold/vindertal_lotto.html','c:\\temp.tmp');
label1.Caption := Copy(ClearForHtml('c:\\temp.tmp', 52),4, Length(ClearForHtml('c:\\temp.tmp', 52))); //Smider vindertallene ind i en label (fjerner 3 tegn som bare er tabulatorer
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

Mvh og god jul
Monie Jacobsen

E-mail:energy@sunwind.dk

Hvordan man downloader en fil:

Tilføj URLMon i uses.

Dette skal stå under: implementation, i toppen af din kode:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end


Dette kan fks. være koden til din knap eller hvad du nu ellers bruger:

if DownloadFile('http://www.server.dk/minfilfil', 'C:\\minfil.fil') then
ShowMessage('Filen er downloaded.')
else
ShowMessage('Kunne ikke downloade filen.');





Sletning af fil:
DeleteFile('C:\\minfil.fil');



(jeg vidste ikke hvordan man laver kode eksempler)

[Redigeret d. 21/12-03 12:31:24 af Kasper Færch Mikkelsen]

[Redigeret d. 21/12-03 12:31:39 af Kasper Færch Mikkelsen]

Ands

Jeg har selv fundet ud af at kopiere..
copyfile('C:/minfil.txt',C:/Min mappe/minfil.txt,true);

Mange tak for hjælpen........

[Redigeret d. 21/12-03 16:51:14 af Anders]