Autor Beitrag
j.klugmann
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Do 21.08.08 11:26 
Moin!
ich wollte gerne mal versuchen ein Video von Myvideo oder Youtube zu streamen.
Das hab ich mir zusammen gebastelt:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
  try
  BEGIN
    list := TStringList.Create;
    f    := TFileStream.Create('C:/'+edit2.Text+'.txt',fmCreate);
  end;

  try
    http.Post(edit1.Text,list,f);                     
  except

  begin
    exit;
  end;
  finally
   list.Free;
   f.Free;
 end;
end;

Es funzt soweit auch schon.Nur das ich kein Video bekomme.Ich bekomme nur den Quelltext der Seite.Müsste dort nicht irgendwo eine Quelle des Videos stehen?



€//Hier bin ich richtig :oops:
alias5000
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 2145

WinXP Prof SP2, Ubuntu 9.04
C/C++(Code::Blocks, VS.NET),A51(Keil),Object Pascal(D2005PE, Turbo Delphi Explorer) C# (VS 2008 Express)
BeitragVerfasst: Do 21.08.08 11:57 
Was steht denn in list drinnen?
Echtes Streamen (Video von deinem PC aus senden) geht aber ganz anders, eigentlich.

Was genau hast du also vor?

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN
j.klugmann
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Do 21.08.08 12:54 
Ich will Videos von MyVideo oder Youtube auf meinen PCn laden.
alias5000
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 2145

WinXP Prof SP2, Ubuntu 9.04
C/C++(Code::Blocks, VS.NET),A51(Keil),Object Pascal(D2005PE, Turbo Delphi Explorer) C# (VS 2008 Express)
BeitragVerfasst: Do 21.08.08 12:59 
Achso, du willst sie herunterladen?

Du kannst dir mal dne Quelltext einer solchen Videoseite ansehen. Dort findest du auch einen Verweis auf die Videodatei (swf-Format!). Diese musst du dann nur noch ganz gewöhnlich herunterladen.

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN
elundril
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 3747
Erhaltene Danke: 123

Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
BeitragVerfasst: Do 21.08.08 16:31 
user profile iconalias5000 hat folgendes geschrieben:
Dort findest du auch einen Verweis auf die Videodatei (swf-Format!)


user defined image

Computer says no!

Es ist eine .FLV datei, keine swf. Die SWF-Datei ist der Player der die FLV-datei abspielt.

lg elundril

_________________
This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
j.klugmann
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Do 21.08.08 18:37 
Zitat:
Es ist eine .FLV datei, keine swf. Die SWF-Datei ist der Player der die FLV-datei abspielt.

Genau!Mir kam das schon komisch vor.Auch als ich im Quelltext der Seite gesucht habe
habe ich das zwar gefunden ,aber das passte nicht.
Beim ClipCatcher(sollt wohl bekannt sein) speichert das Programm auch eine ".FLV" und keine
".swf" . :P
alias5000
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 2145

WinXP Prof SP2, Ubuntu 9.04
C/C++(Code::Blocks, VS.NET),A51(Keil),Object Pascal(D2005PE, Turbo Delphi Explorer) C# (VS 2008 Express)
BeitragVerfasst: Do 21.08.08 21:44 
ach mist, so viele Buchstabenkombinationen :nut:
bin durcheinandergekommen, sorry

_________________
Programmers never die, they just GOSUB without RETURN