Banner i program

Du går op i "Additional" og sætter et "Picture" ind i din form. Marker formen og sæt "AutoSize" til true, og vælg et billede til den og brug ShellExecute i OnClick-eventen til den.

ja det er meget godt men den skal jo hentes af nettet.

Hvordan gør man det?
_______________________________
http://freesoft.amok.dk

Her er en funktion til at downloade en fil fra internettet:

Tilføj URLMon uses.

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

Dette skal du skrive for at hente banneret:

<pre>if DownloadFile('http://www.server.dk/banner.jpg', 'C:\\banner.jpg') then
Image1.Picture.LoadFromFile('C:\\banner.jpg');
else
ShowMessage('Banneret kunne ikke hentes.';</pre>For at kunne gøre det med et gif-billede skal du først have:
http://www.torry.net/vcl/graphics/gif/gifimage.exe

Emil Melgaard
emil.melgaard@private.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

[Redigeret d. 16/02-03 11:16:16 af Emil Melgaard]

Er det fordi I ikke vil svare eller ikke kan? I ikke har svaret endnu...:-)[Redigeret d. 24/12-02 15:31:45 af Kim Rasmussen]

Du går op i "Additional" og sætter et "Picture" ind i din form. Marker formen og sæt "AutoSize" til true, og vælg et billede til den og brug ShellExecute i OnClick-eventen til den.

Du går op i "Additional" og sætter et "Picture" ind i din form. Marker formen og sæt "AutoSize" til true, og vælg et billede til den og brug ShellExecute i OnClick-eventen til den.

ja det er meget godt men den skal jo hentes af nettet.

Hvordan gør man det?
_______________________________
http://freesoft.amok.dk

men det er jo ikke et billede jeg vil have som banner det er en fil den skal hente fra nettet. Man kan hente en side med TWebBrowser men der kommer en sådan bar over i siden Hvordan kan jeg fjerne den?

Mvh Kim

Kig på http://www.udvikleren.dk/thread.php?techid=2&f=2&t=618 :-)