hallo
ich versuche mit hilfe von der
indy komponente idhttp ein youtube video zu downloaden.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
stream: TFileStream;
text: string;
begin
if savedialog1.Execute = true then
begin
stream := TFilestream.create(savedialog1.FileName ,fmCreate or fmShareDenyWrite);
text := idhttp1.Get(Edit1.Text);
text := 'http://www.youtube.com/get_video?video_id=' + copy(text, pos('"video_id": "', text) + 13, 11) + '&t==' + copy(text, pos('"t": "', text) + 6, 44);
idhttp1.Get(text, stream);
stream.Free;
end;
end;
das hir war mein code.
die
url funkitioniert in firefox und im TWebbrowser von delphi.
im workbegin von idhttp habe ich das progressbar.max gesetzt
und im work setze ich die position der progressbar.
erstaunlich find ich das das progressbar mehrmals (als 2) hin und her sprinkt.
er lauft den weg nicht richtig ab.
dann erstellt das programm die datei aber sie ist 0 byte groß. und das programm bleibt hänngen.
ich verzweifle wo liegt der fehler.
ich bitte um antworten