Streaming Speex within Delphi

Thanks, Lee. But I got a 404 calling that URL.
Is that example working with ACM codecs? The Problem with that is that I can't really tweak the Speex Codec.
Btw: I finally got the headers translated to Delphi by myself (and they are working with the delphi example from speex.org), but now I have another problem, which is that I need to give frames to speex rather than just the buffer I get from the SampleGrabber of DSPack. I think I have to read some documents about the PCM format and Audio in general now.
It would be nice if you give me a new link to your example, though ;)

Nice Demo :) But as I said I can't use ACM codecs for that.
Thanks also for the info on how to treat the buffer but it doesn't work. I will explain a bit more. Maybe you have the time to look over it for a second ;)

So, here is the part of the original Delphi Sample that is working for me:
------------------------------------------------------------------------------------
var
  smpRt: integer = 8000; // The Sampling rate
  recordBuff: array of SmallInt;
  recording: boolean = false;
  simPacketLoss: single = 0;
  simPacketCorruption: single = 0;

  // Encoding //
  encbits: TSpeexBits;
  encstate: Pointer;
  encframe: integer;

  buffEnc: array of single;

  // Decoding //
  decbits: TSpeexBits;
  decstate: Pointer;
  decframe: integer;

  buffDec: array of single;

  // Wave In/Out //
  hWI: HWAVEIN = 0;
  hWO: HWAVEOUT = 0;

  inHdrs: array[0..2] of TWaveHdr;
  inBuffs: array[0..2] of array of SmallInt;

  outHdrs: array[0..2] of TWaveHdr;
  outBuffs: array[0..2] of array of SmallInt;

  woThread: TWaveOutThread;

  szLastFrame: integer = 0;

[..]


// Wave In/Out Stuff //
procedure wiCback(wi: HWAVEIN; uMsg: LongWord;
                  dwInstance,dwParam1,dwParam2: LongWord); stdcall;
var
  sz,l,i,idx: integer;
  buffBytes: array of byte;
begin
  case uMsg of
    WIM_DATA: begin
      idx := PWaveHdr(dwParam1).dwUser;

{      if recording then begin
        l := Length(recordBuff);
        sz := Length(inBuffs[idx]);
        SetLength(recordBuff,l+sz);
        CopyMemory(@recordBuff[l],@inBuffs[idx,0],sz*Sizeof(inBuffs[idx,0]));
      end;}

      for i:=0 to High(inBuffs[idx]) do
        buffEnc[i] := inBuffs[idx,i];

      speex_bits_reset(@encbits);
      speex_encode(encstate,@buffEnc[0],encbits);
      sz := speex_bits_nbytes(@encbits);
      SetLength(buffBytes,sz);
      speex_bits_write(@encbits,@buffBytes[0],sz);
      delphitestform.label13.caption := inttostr(sz);
      szLastFrame := sz;

      // This is a demo, okay! :) so let's decode it again //

      // Simulate packet loss //
      if random<simPacketLoss then
        speex_bits_read_from(@decbits,nil,0)
      else begin
        // Simulate packet corruption //
        if random<simPacketCorruption then begin
          for i:=0 to random(Length(buffBytes))-1 do
            buffBytes[random(Length(buffBytes))] := random(256);
        end;

        speex_bits_read_from(@decbits,@buffBytes[0],sz);
      end;
      speex_decode(decstate,decbits,@buffDec[0]);

//      CopyMemory(@outBuffs[idx,0],@inBuffs[idx,0],decFrame*sizeof(outBuffs[idx,0]));
      buffBytes := nil;

      for i:=0 to High(outBuffs[idx]) do
        outBuffs[idx,i] := Round(buffDec[i]);

    end;
  end;
end;

------------------------------------------------------------------------------------
If there is any other information needed, the demo is located here: http://www.speex.org/download/Speex_Delphi_Demo.zip
(I have made some changes to the procedure above since my header file seems to differ from the original header file which is missing)

So the demo uses a callback function for Wave Input but I want to use DSPack. I put a FilterGraph and a SampleGrabber on my Form. (Since I saw that you are an active member of the Progdigy-Forums as well I think you are familiar with all that stuff.)
I use a Filter for audiocapture and it works fine.

But: How do I convert the sample above to work with the Buffer I get from the SampleGrabber?

Would be really great if you take a look at my problem again.
Hope that its all information needed.
Thanks so far again :)

Ah, nevermind. I got it working :)

so .. you did the "split the buffer to frames" thing ? :)