Hi liebe Delphigemeinde,
ich bin gerade dabei ein
ActiveX Downloadmanager zu Prgrammieren.
Das funktioniert auch schon ganz gut (Fortschrittanzeige, Gelesene Bytes etc.).
Es werden ca. 1GB große Videos gespeichert. Jetzt soll man aber
das Video bereits öffnen können bevor der
DL Manager fertig ist mit downloaden.
Wenn ich versuche mit VLC oder Mplayer die Datei abzuspielen kommt immer canot open the file xyz.wmv
NAch dem Download funktioniert es einwandfrei (nachdem TFilestre.free)
Erstmal etwas Code:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
lStream: TStream;
begin
// fmShareDenyNone -> laut meinem Verständnis von Deny none das richtige..
lStream:=TFileStream.Create('C:\download.wmv', fmShareDenyNone or fmCreate);
try
http.Get('http://www.server.de/video.wmv', lStream);
finally
lStream.Free;
end;
end;
Ich habe es auch schon mit einem TCPClient versucht aber es scheitert immer an der Art
wie ich die Loakale Datei zum schreiben öffne.
Gibt es da eine alternative damit die datei für andere Programm lesbar wird.
Danke schonmal im Voraus
Gruss
BasDee