io ho il seuente codice ;
PROCEDURE tform9.riempimento(Sender: TObject) ;
var
stream: TMemoryStream;
err: String;
URL: String = 'https://www.youtube.com/watch?v=v_82782h180'; //'https://www.ietf.org/rfc/rfc2445.txt';
F: typedfile;
begin
stream := TMemoryStream.Create;
try
Download(URL, stream, err);
stream.Position := 0;
AssignFile(F, '/home/francesco/Scrivania/simpledownload\Pippo.jpg4');
Memo1.Lines.LoadFromStream(stream);
OpenURL(memo1.text) //'http://www.lazarus.freepascal.org');
except
ShowMessage('Error: ' + err);
stream.Free;
finally
stream.Free;
end;
end;
mi da' errore in download
unit9.pas(49,5) Error: Identifier not found "Download"
eppure fino a poco tempo fa mi funzionava e mi dava il testo della pagina dove era il link cercato.