AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Weiß jemand die neue Adresse ?

Ein Thema von novabeat · begonnen am 1. Mai 2006 · letzter Beitrag vom 23. Mai 2009
Antwort Antwort
Seite 3 von 3     123   
QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.883 Beiträge
 
Delphi 12 Athens
 
#21

Re: Weiß jemand die neue Adresse ?

  Alt 27. Nov 2007, 16:31
Ja die Einzig Guten Kompos für sowas, ich hab dann noch einen Bug entfernt
Delphi-Quellcode:
 
procedure TCapiISDN.ProcessSending(aConnection:TConnection);
var aConnectionInfo:TConnectionInfo;
    alawAdr,wavadr:pointer;
    aSize:integer;
begin
    if assigned(aConnection) then
      aConnectionInfo:=FConnectionInfos.IDITems[aConnection.ID]
    else
      aConnectionInfo:=Nil;
    if assigned(aConnectionInfo) then begin
      while (aConnection.B3DataQueue.count<_CapiBDataBlocks) and (aConnectionInfo.SendingMode<>smNone) do begin
           if aConnectionInfo.SendingMode = smWave then begin
              getmem(alawAdr,_CapiBDataLen);
              getmem(wavAdr,2*_CapiBDataLen);
              fillchar(alawAdr^,_CapiBDataLen,0);
              aSize:=2*_CapiBDataLen;
              Wave.Read(aConnectionInfo.PWavFile,wavAdr,aSize);
              MoveWavtoALaw(wavAdr,ALawAdr,aSize);

              (****************A.R.  4. April 2005************************)
              //Wegen des KNACK am Ende der Datei auskommentiert
              //FCapi.AddB3Data(aConnection,alawAdr,_CapiBDataLen,0);

              //Statt dessen aSize div 2 verwenden da es nur Daten in
              //die Queue schiebt die Ton kodieren.
              FCapi.AddB3Data(aConnection,alawAdr,asize div 2,0);

              freemem(alawAdr,_CapiBDataLen);
              freemem(wavAdr,2*_CapiBDataLen);
           end;
      end;
      FCapi.TransferB3Data(aConnection);
    end else if not assigned(aConnectionInfo) then
     showmessage('CI NA');
end;
Kann man diese Komponenten eigentlich irgendwo ins Forum einstellen, so das man sie leicht findet?
Hat es jemand von euch geschafft Konntakt mit Dirk Rübenbach aufzunehmen? Auf Emails antwortet er damals nicht.
Andreas
Monads? Wtf are Monads?
  Mit Zitat antworten Zitat
DevStar

Registriert seit: 26. Aug 2007
79 Beiträge
 
#22

Re: Weiß jemand die neue Adresse ?

  Alt 23. Mai 2009, 09:06
Zitat von QuickAndDirty:
Ja die Einzig Guten Kompos für sowas, ich hab dann noch einen Bug entfernt
Ja, nur das der Knack am Ende jetzt noch schlimmer geworden ist.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 3     123   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz