Ĺadny brzuch
Witam. Chciałem wysłać strumień przez sockety, ale mam problem i nie mogę znaleźć rozwiązania.
ListBox1.Items.SaveToStream(lista); MaxSize := 1024 * 8; Count := lista.Size; repeat if Count > MaxSize then Bytes := MaxSize else Bytes := Count; GetMem(Buf, Count); lista.ReadBuffer(Buf^, Bytes); Socket.SendBuf(Buf^, Bytes); Count := lista.Size - lista.Position; until Count = 0; FreeAndNil(lista);
Zapisuję zawartość listboxa do filestreama i chcę wysłać ale już w trakcie działania programu wywala mi: Error stream read i server przestaje działać :(
Jeśli ktoś mógłby pomóc to niech powie gdzie jest błąd.
A posłóż się takim czymś co się nazywa TIDTCPClient i TIDTCPServer. To są komponenty INDY
Wiem, że prze Indy się da, ale mi zależy na Socketach. :(
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
ListBox1.Items.SaveToStream(lista); MaxSize := 1024 * 8; Count := lista.Size; repeat if Count > MaxSize then Bytes := MaxSize else Bytes := Count; GetMem(Buf, Count); lista.ReadBuffer(Buf^, Bytes); Socket.SendBuf(Buf^, Bytes); Count := lista.Size - lista.Position; until Count = 0; FreeAndNil(lista);
Zapisuję zawartość listboxa do filestreama i chcę wysłać ale już w trakcie działania programu wywala mi: Error stream read i server przestaje działać :(
Jeśli ktoś mógłby pomóc to niech powie gdzie jest błąd.
A posłóż się takim czymś co się nazywa TIDTCPClient i TIDTCPServer. To są komponenty INDY
Wiem, że prze Indy się da, ale mi zależy na Socketach. :(