[ buha18 @ 05.10.2011. 09:05 ] @
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
[ savkic @ 05.10.2011. 11:05 ] @
> 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.
[ buha18 @ 05.10.2011. 15:02 ] @
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?
[ krle_zr @ 05.10.2011. 15:46 ] @
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.

[ buha18 @ 10.10.2011. 18:40 ] @
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.
[ savkic @ 11.10.2011. 00:14 ] @
> 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
[ buha18 @ 11.10.2011. 19:27 ] @
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?