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.