[Delphi] Streaming avec le TIdHttp

Streaming avec le TIdHttp [Delphi] - Programmation

Marsh Posté le 22-11-2001 à 04:13:57    

Est ce que quelqu'un a déjà reussi a utiliser correctement le compo Http Indy (9.02) pour faire du streaming... (Genre ecouter un mp3 on the fly, etc, etc).
 
J'ai cherché un bout de temps mais j'ai toujours qqs merdes, il est pas vraiment prévu pour ca leur compo :(


---------------
Vendredi c'est Buitoni
Reply

Marsh Posté le 22-11-2001 à 04:13:57   

Reply

Marsh Posté le 22-11-2001 à 07:47:08    

Je veux des informations !  :D


---------------
PowerDivX NextGen 3.12 sur: http://www.powerdivx.com
Reply

Marsh Posté le 22-11-2001 à 14:59:09    

Benh moi aussi justement... On sait le faire facilement avec les compos de FPiette (open source), ou les NetMasters (inclu dans la version enterprise) ou des autres pas gratos (async,...), mais Indy est compatible avec Kylix et Delphi6 donc je veux utiliser Indy :-)
 
Et puis, avec Indy on sait gerer la taille du buffer de reception, contrairement à ceux de FPiette qui sont pourtant mega bien... (http://www.rtfm.be/fpiette je pense).
 
Alors, personne n'a utilise le TIdHttp pour faire du streaming? :(


---------------
Vendredi c'est Buitoni
Reply

Marsh Posté le 22-11-2001 à 16:18:45    

Au fait, tout le monde s'en fout, mais si t'as t'interesse BlackSunSoft, je crois que j'ai trouvé une solution, enfin non j'en suis sur en fait... Vu qu'il sauve dans un TStream le TIdHttp, je vais deriver un TStream et attaquer par ce cote la, au moins la je serai sur de ce qui arrive...
 
Voila, problème réglé :)


---------------
Vendredi c'est Buitoni
Reply

Marsh Posté le 22-11-2001 à 16:49:37    

sinon je viens de trouver un truc auquel il faudrait peut-être jeter un coup d'oeil (surtout toi BlackSun si tu voulais ajouter du streaming dans PowerDivx), http://www.progdigy.com/ -> DSPack


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 22-11-2001 à 17:02:24    

Moi aussi ça m'interresse....
G du streaming à faire bientôt......


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 22-11-2001 à 17:07:59    

ouais enfin là c'est pour du streaming audio/video avec directshow...


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 22-11-2001 à 17:11:13    

antp a écrit a écrit :

ouais enfin là c'est pour du streaming audio/video avec directshow...  




Moi C pour faire du streaming audio....
Je suis dans la phase documentation.....


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 23-11-2001 à 07:24:12    

@Buitoni: Tu me diras quand tu auras un exemple, que je me jette dedans apres...  :D  
 
@antp: Je suis SunShine sur Progdigy, j'ai pris ce nick car il y a Blight, l'auteur de Zoomplayer dessus.
 
Sinon sur progdigy coté streaming y a qu'en utilisant le Windows Media Format qu'on peux streamer, et il faut demander une license a Microsoft et j'ai pas envie.


---------------
PowerDivX NextGen 3.12 sur: http://www.powerdivx.com
Reply

Marsh Posté le 23-11-2001 à 14:04:41    

J'ai pas d'examples, j'ai mon prog (200k de sources la :p). Mais ca, tu auras pas les sources  :na:  
 
Je vais te copier juste les lignes utiles, c'est bete comme cochon...
 
 
  THttpStream = class(TStream)
  private
    FThread: TSDHttpThread;
  public
    function Read(var Buffer; Count: Longint): Longint; override;
    function Write(const Buffer; Count: Longint): Longint; override;
    property Thread:TSDHttpThread read FThread write FThread;
    function Seek(Offset: Longint; Origin: Word): Longint; override;
    function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
  end;
 
 
 
 
 
 
{******************************************************************}
function THttpStream.Read(var Buffer; Count: Integer): Longint;
begin
  result := 0;
end;
{******************************************************************}
function THttpStream.Seek(Offset: Integer; Origin: Word): Longint;
begin
  result := Offset;
end;
{******************************************************************}
function THttpStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
  result := Offset;
end;
{******************************************************************}
function THttpStream.Write(const Buffer; Count: Integer): Longint;
begin
  result := Count;
  FThread.ReceiveData(Buffer,Count);
end;
{*************************************************
*****************}
 
 
 
Voila, c'est tout ce dont tu as besoin... tu crees un de ces stream, tu l'utilises dans le get et puis tu geres comme tu le sens le ReceiveData, moi je le renvoyait a mon thread, a toi de voir ;)


---------------
Vendredi c'est Buitoni
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed