otvaranje wav datoteke

otvaranje wav datoteke 05.10.2011. u 09:05 · pre 183 meseci #1

kako ucitati neku .wav datoteku, rascjepati je i spremiti u polja veličine npr 10kB?
kako je vratiti iz toga polja natrag u jednu cjelinu?

hvala

Potpis

>>Mirkec<<

Re: otvaranje wav datoteke 05.10.2011. u 11:05 · pre 183 meseci #2

> kako ucitati neku .wav datoteku, rascjepati je i spremiti u polja veličine npr 10kB?
> kako je vratiti iz toga polja natrag u jednu cjelinu?

Otvori datoteku preko TFileStreama, napravi i jedan TMemoryStream i redom kopiraj po 10kb u memoryStream, sačuvaj gde hoćeš (ako je to baza, potraži ranije poruke za primer) i ponovi operaciju.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: otvaranje wav datoteke 05.10.2011. u 15:02 · pre 183 meseci #3

hvala na odgovoru... rijesio sam pomocu

Code:

BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead) ;

moze jos samo pomoc oko slanja i primanja podataka pomocu udp protokola?

Potpis

>>Mirkec<<

Re: otvaranje wav datoteke 05.10.2011. u 15:46 · pre 183 meseci #4

Moj predlog je Internet Direct (Indy), dolazi uz dosta primera, i mislim da ces moci da resis sa njim. U svakom slucaju, skini tu biblioteku i pogledaj primere.

Re: otvaranje wav datoteke 10.10.2011. u 18:40 · pre 183 meseci #5

klijent

Code:

  begin
    x[1] := 65;
    Form1.IdUDPClient1.SendBuffer(x[1],1);
  end;

server

Code:

begin
  count := AData.Size;
  for i:=0 to count do
  begin
  Memo1.Lines.Add(Char(buffer[i]));
  memo1.Lines.Add(char(65));
  end;
end;

na strani servera mi ne prikaze znak 'A', vec nesto cudno. zasto?
sve se izvodi na jednom racunalu.

Potpis

>>Mirkec<<

Re: otvaranje wav datoteke 11.10.2011. u 00:14 · pre 183 meseci #6

> na strani servera mi ne prikaze znak 'A', vec nesto cudno. zasto?

Ne vidi se kod za prijem, šta je buffer i slično. U samom primeru rekao bih da ti nedostaje - 1 u petlji:
for i :=0 to count - 1 do

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: otvaranje wav datoteke 11.10.2011. u 19:27 · pre 183 meseci #7

opet ja... :)

Code:
UDPKlijent = Class(TidUDPClient)
   private
    kasnjenje:integer;//u ms
    gubitak:integer; // u postocima
   public
    //procedure posalji(const dad:datagram);
    constructor Create(const kas, gub:integer);
  end;

.....

constructor UDPKlijent.Create(const kas, gub:integer);
begin
kasnjenje:=kas;
gubitak:=gub;
Host:='127.0.0.1';
Port:=10001;
end;

...
var a:UDPKlijent;
b:byte;
begin
  a:=UDPKlijent.Create(10,10);
  a.Send('bla');
end;

kako kreirati objekt udpklijent da mogu koristiti metode nasljedene klase?

Potpis

>>Mirkec<<

Srodne teme