otvaranje wav datoteke

otvaranje wav datoteke 05.10.2011. u 10:05 · pre 183 meseca #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 12:05 · pre 183 meseca #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

1

Re: otvaranje wav datoteke 05.10.2011. u 16:02 · pre 183 meseca #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 16:46 · pre 183 meseca #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.

1

Re: otvaranje wav datoteke 10.10.2011. u 19:40 · pre 183 meseca #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 01:14 · pre 183 meseca #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

1

Re: otvaranje wav datoteke 11.10.2011. u 20:27 · pre 183 meseca #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<<

Forum kao aplikacija na telefonu

Srodne teme