Hente streng fra fil, placeret på en url

Mener du en text fil ?

Stoney

Jep. En ganske almindelig text-fil

En streng er alphanumerisk data, der kan ligge i en array, en text datatype
, database post, el. lign. Jeg går ude fra, at du har tilladelse at hente filen fra serveren og at det ikke ligger bag en firewall? Ligger strengen i en database, en web-form, en html-side, el. hvad??

tilføj wininet i uses

Nedenstående eks indlæser den i en memo, du kan selv ændre det til en streng

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