Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

otvaranje wav datoteke

[es] :: Pascal / Delphi / Kylix :: otvaranje wav datoteke

[ Pregleda: 2067 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

buha18
mali mirkec
vratisinec

Član broj: 57193
Poruke: 161
*.adsl.net.t-com.hr.



+10 Profil

icon otvaranje wav datoteke05.10.2011. u 09:05 - pre 152 meseci
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
>>Mirkec<<
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: otvaranje wav datoteke05.10.2011. u 11:05 - pre 152 meseci
> 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.

 
Odgovor na temu

buha18
mali mirkec
vratisinec

Član broj: 57193
Poruke: 161
*.adsl.net.t-com.hr.



+10 Profil

icon Re: otvaranje wav datoteke05.10.2011. u 15:02 - pre 152 meseci
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?
>>Mirkec<<
 
Odgovor na temu

krle_zr

Član broj: 96307
Poruke: 258
*.dynamic.isp.telekom.rs.



+7 Profil

icon Re: otvaranje wav datoteke05.10.2011. u 15:46 - pre 152 meseci
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.

 
Odgovor na temu

buha18
mali mirkec
vratisinec

Član broj: 57193
Poruke: 161
*.adsl.net.t-com.hr.



+10 Profil

icon Re: otvaranje wav datoteke10.10.2011. u 18:40 - pre 152 meseci
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.

>>Mirkec<<
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: otvaranje wav datoteke11.10.2011. u 00:14 - pre 152 meseci
> 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
 
Odgovor na temu

buha18
mali mirkec
vratisinec

Član broj: 57193
Poruke: 161
*.adsl.net.t-com.hr.



+10 Profil

icon Re: otvaranje wav datoteke11.10.2011. u 19:27 - pre 152 meseci
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?
>>Mirkec<<
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: otvaranje wav datoteke

[ Pregleda: 2067 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.