Forbindelse til DataBase

Hvad er det for en database ?

Stoney

en *.mdb database

Det kan du ikke uden at mappe et drev op mod dit ftp account.

Hvis det var Mysql eller MS SQL server, DB2 eller ligende er det bare
at sætte host til friserverplads.dk og port nr.

Stoney

stoney > Du er jo rimlig god til Delphi....Kan du så ikke vise mig et script hvor man henter en fil via delphi?
Så får du points...

Hvad mener du med at hente en fil ?

Stoney

downloade

2 sek

tilføj wininet i uses

function GetInetFile
(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
              nil, nil, 0);
try
  hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,0,0);
  try
  AssignFile(f, FileName);
  Rewrite(f,1);
  repeat
    InternetReadFile(hURL, @Buffer,
                    SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
  until BufferLen = 0;
  CloseFile(f);
  Result:=True;
  finally
  InternetCloseHandle(hURL)
  end
finally
  InternetCloseHandle(hSession)
end
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var FileOnNet, LocalFileName: string ;
begin
FileOnNet:= 'http://friserverplads.dk/file.zip';
LocalFileName:='filnavn.zip';

if GetInetFile(FileOnNet,LocalFileName)=True then
  ShowMessage('Filen er downloaded')
else
  ShowMessage('Fejl i download')

end;