Results 1 to 4 of 4

Thread: Download File doet het niet :(

  1. #1
    Iemand.. doe iets! Basso's Avatar
    Join Date
    Feb 2002
    Location
    Helmond
    Posts
    227

    Unhappy Download File doet het niet :(

    Ik heb een programma gemaakt waarmee je kleine stukjes van muziek kan downloaden om te horen of hij leuk is..

    [OFFTOPIC]
    Dus geen illegale praktijken
    [/OFFTOPIC]

    maar nou heb ik van een andere thread hier een stukje overgenomen en er dit van gemaakt...

    Code:
    procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    var
      ms: TMemoryStream;
      Str: String;
    begin
    ms := TmemoryStream.Create;
     try
      Ms.LoadFromFile('D:\Sample11.mp3);
      ms.Position := 0;
      response.ContentType := 'application/unknown';
    //  response.ContentType := 'application/x-zip-compressed';
      response.SendStream(ms);
     except
      ms.Free;
      Exit;
     end;
    
    end;
    qua code denk ik niet dat er iets aan de hand is.. Ook heb ik een ander contenttype al geprobeerd maar hij blijft gewoon de inhoud van de mp3 in textvorm aangeven, weet iemand hoe dit komt?
    Mijn form maakt gebruik van GET..

    grt. Basso (voelt zich een )
    <= Mr. CeTrAc =>

    Change your thoughts and you change your world.
    - Norman Vincent Peale (1898 - 1993)

  2. #2
    Senior Member PsychoMark's Avatar
    Join Date
    Nov 2001
    Location
    Raamsdonksveer
    Posts
    10,269
    1. Waarom TMemoryStream met LoadFromFile en niet direct TFileStream? Scheelt nog eens geheugen ook...

    2. Ik vond wel dit in de help:



    Description

    Only call SendStream after first calling SendResponse. Unlike SendStream, SendResponse fills the header of the HTTP response message, based on the properties of the TWebResponse object. If SendResponse has not been called first to set the header of the HTTP response message, set the ContentStream property to AStream, and call SendResponse.


    En naar wat ik voorderest zag is gewoon Response.ContentStream instellen genoeg, SendResponse aanroepen hoeft dan niet eens. Ik heb echter geen ervaring met webservices, dus durf 't niet zeker te zeggen... maar dit lijkt in ieder geval wel de verklaring waarom je ContentType niks doet...


    En volgens mij bestaat er overigens ook nog zoiets als 'application/x-octet-stream', of in ieder geval een ContentType waarbij de browser 'm eventueel kan streamen
    Qui custodiet ipsos custodes

  3. #3
    Iemand.. doe iets! Basso's Avatar
    Join Date
    Feb 2002
    Location
    Helmond
    Posts
    227
    te snel ben ik geweest, het is al opgelost!
    Ik heb het volgende gevonden op deze site
    http://www.209software.com/books/wpid/
    (gevonden in nlDelphi Links)

    En heb het wat aangepast:

    Code:
    procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    var
      ms: TMemoryStream;
    begin
    ms := TmemoryStream.Create;
     try
      Ms.LoadFromFile('D:\Sample11.mp3);
      ms.Position := 0;
      response.ContentType := 'audio/mpeg';
      response.ContentStream := ms;
      response.SendResponse;
     except
      ms.Free;
      Exit;
     end;
    
    end;
    dit werkt wel!

    grt. Basso
    <= Mr. CeTrAc =>

    Change your thoughts and you change your world.
    - Norman Vincent Peale (1898 - 1993)

  4. #4
    Iemand.. doe iets! Basso's Avatar
    Join Date
    Feb 2002
    Location
    Helmond
    Posts
    227
    he bedankt he! We waren op hetzelfde moment het bericht aant typen, kewl! Maar iid memorystream gebruikt veel geheugen, ik denk dat ik er een filestream van maak!

    Maar toch bedankt!


    grt. Basso
    <= Mr. CeTrAc =>

    Change your thoughts and you change your world.
    - Norman Vincent Peale (1898 - 1993)

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 67
    Last Post: 15-Jun-04, 12:32

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •