Anonymní profil Franta – Programujte.com

Hledam zpusob jak umoznit stream videa nebo zvuku mezi dvouma klientama po pocitacove siti. Zajima me spise teoreticky postup (princip) a jake komponenty by se pripadne pouzily (napadaji me ClientSocket, ServerSocket a IndyTCP komponenty).

Predem diky za odpoved

Mám program, kde používám clientsocket a serversocket prakticky jedine co delam je, ze posilam text pomoci sendtext/receivetext a zajimalo by me, jestli hrozi nejake bezpecnosti riziko ohledne pouzivani socketu.
Vím, že hodně záleží na programu a hlavne na chyby v nem, ale ptám se tak obecně.

Předem díky za odpověď

nervak napsal:
Ještě upřesnění.
Pokude cílový soubor neexistuje a chceš, aby se automaticky vytvořil, tak mode bude fmCreate or fmOpenWrite.
A přidávat se bude, dokud to bude ta samá instance streamu. Tj. nebudeš ho pořád znova vytvářet (šlo by to, kdybys vždycky zároveň použil Seek a nastavil pozici na konec), ale vytvoříš si ho na začátku přenosu a pak do něj jen budeš připisovat.

nervak napsal:
Pro příjem budeš mít ten stream vytvořený s fmOpenWrite a budeš do něj zapisovat - stream.WriteBuffer. Data se budou přidávat na konec.

Dobry funguje mi to ale jen mi nefunguje skladani segmentu dohromady

mam

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

var 

  stream: TFileStream; 

  buffer: array[1..4096] of byte;

  velbuf:integer

begin

  socket.ReceiveBuf(buffer,velbuf);

  stream.Read(buffer,velbuf);

end;

nervak napsal:
No, tak jak teď asi máš něco jako toto:

stream := TFileStream.Create(...);

socket.SendStream(stream);

Tak prostě nepošleš celý stream, ale pošleš ho po částech:

stream.ReadBuffer(...buffer...);

socket.SendBuffer(...buffer...);

A obdobně pro čtení.

Mám chat, celý je realizovaný pomoci clientsocket a server socket, všechny zpravy jdou na server a ten ji pošle klientu kterému je určena a chtel bych udělat aby se tímto způsobem daly posílat soubory.

Vím jak bych poslal soubor na server a pote klientovy (pres Stream), ale problem je v tom, že soubor nejdřive pošlu na server, musim cekat az se cely nahraje a pote urcitemu klientovy. To trvá dvakrat tak dlouho nez by bylo dobre a navic pri prijimani a posilani souboru program zamrzne , to by slo resit pres vlakna, ale v ty neumim a nechci se do nich poustet.

Kdybych posilal data z klienta na klienta, tak by to nebyl zas takovy problem, ale chci aby bezelo vsechno pres server.

Napadlo me ze bych soubor posilal napr po 20kb to by umoznovalo zaroven posilat data na server a ten by se v te same chvily uz posilal(mezitim bych mohl delat i jine veci a program by nezamrzl) s malym zpozdenim, ale netrvolalo by to 2x dlouho . Jenze nevim jak posilat soubor po castech a nasledne jak ho slozit. Tohle me napadlo ze by se to takhle dalo resit, ale asi bude i schudnejsi cesta jen o ni nevim.

A tak pisu jestli ma nekdo nejaky navrh nebo radu.

Predem diky

liborb napsal:
Zkus okno se špatným znakem např. minimalizovat a pak znovu obnovit, tím poznáš, jestli je to jen chyba překreslení nebo je problém jinde.

Nejdřiv popisu co delam. Delam gif animaci, takze vytvorim nekolik obrazku (bez pozadi), kazdy v jedne vrstve, dam filtry-animace-optimalizace (pro gif), vytvori se novy soubor uz s intervali a tak uložím pustím a ted to prijde, v animaci se obrazky nestridaji ale "nabaluji" na sebe a ja potrebuju aby se obrazky menily. Urcite mam jen neco spatne nastavene a nevim co. Předem díky za odpoved.

Vrstvy v gimpu:

Screen z výsledne animace:

Hledám program (nebo způsob), ktery umí vytvářet animace bez pozadí. Mám obrázky .tif a potrebuju z nich udělat animaci, ale žádny program co jsme použil ji nevytvoří bez nějakého pozadí. Zkoušel jsem zoner gif animator, easy animator a další co jsme našel na netu. Možná nejde vytvořit animace bez pozadí z .tif a je potřeba jiný typ nebo něco dělám spatně ( matně si pamatuju, že zoner gif anim. umí animace bez pozadí, ale nejsem si jistý). Předem díky.

Můj dotaz předvedu na příkladu.

Mám form1 a form2. Na form1 mám tlačítko:

procedure TForm1.Button1Click(Sender: TObject);

begin

  form2:=tform2.create(form1);

  form2.show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  form2:=tform2.create(form1);

  SetWindowLong(form2.Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);

  form2.show;

end;

liborb napsal:
A není to jenom chyba překreslení?

Mám na první pohled triviální problém. Na formulář vložím RichEdit nic jiného spustím program a začnu psát do richeditu a ted to prichází, první napsany znak je jaksi zdeformovaný. Vůbec si nedokáži predstavit čím by to mohlo být způsobeno, když se to projevuje jen u prvního znaku, a když poté vše smažu a žačnu psát znova první znak už je normalní.

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var

  MousePos      : TPoint; 

  OverItemIndex : integer;

begin 

  MousePos.x := X;

  MousePos.y := Y;

  if Button = mbRight then

    begin 

      OverItemIndex := listbox1.ItemAtPos(MousePos,False);

      listbox1.ItemIndex:=OverItemIndex;

    end;

end;

Potřebuju, aby se položky v listboxu označovali při stisknutí pravého tlačítka na myši.

Na co? Používám popupmenu a pri jeho vyvolání potřebuju vědet na jakou položku jsem kliknul.

Edit: VYŘEŠENO

___

Honzc napsal:
Zkus to takhle

Diky za odpoved, udelam jsem to stim invertovanim a prepisovanim, jak pises, ale spis by me zajimalo, jestli to jde udelat tak, jak je to v malovani, protoze ted kdyz kreslim a mam uz neco nakreslene tak to se potom taky invertuje a vypada to zvlastne, totiz v malovani se nahled nemeni a nezalezi na tom co uz je nakresleno.

_

Můj problém nebo spíše dotaz je celkem prostý. Mám image1 a na ten kreslím pomoci canvas. Dejme tomu že chci nakreslit obdelník. Jen tak pro představu co mám namysli tady je kód.

var x1,y1:integer



procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  x1:=x;

  y1:=y;

end;



procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  image1.Canvas.Rectangle(x1,y1,x,y);

end;

Tak uz to mam precetl jsem nejakou literaturu a pisi ze misto create se ma pouzit createnew pri vytvareni novych formu nebo neco takovyho a stim to funguje

Dobre diky, ale haze to error kdyz chci vytvorit ten novy form stisknutim na tlacitko tak to vyhodi

Project Project1.exe raised exception class EResNotFound with message 'Resource TChatForm not found'. Process stopped. Use Step or Run to continue.

Stim ze po chvily zkouseni program uz vubec nesel spustit se stejnou hlaskou

Project Project1.exe raised exception class EResNotFound with message 'Resource TForm1 not found'. Process stopped. Use Step or Run to continue.

Cely kod:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure NewChatForm;

    procedure Button1Click(Sender: TObject);

  private



  public



  end;



 type

  TChatForm = class(TForm)

    memo: TMemo;

    odeslat: TButton;

  end;



var

  Form1: TForm1;



implementation



procedure TForm1.NewChatForm;

var chatform : TChatForm;

begin

  chatform := TChatForm.Create(Form1);

  chatform.Show;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  NewChatForm;

end;



end.

Napisu jen to dulezite, mam vice dynamicky vytvorenych oken, stim by problem nemel byt, v oknech mam button a memo predstavuju si to tak ze po kliknu na tlacitko se odesle zprava. Nic sloziteho. Takze k procedure onclick na tlacitko jsem priradil proceduru TForm1.OdeslatForm, ale potrebuju aby pro kazde tlacitko bral text z jineho mema a tady prichazi problem kdyz vytvorim proceduru

procedure TForm1.OdeslatForm(Sender: TObject); 

btnSend.onClick:=OdeslatForm;

procedure TForm1.OdeslatForm(CisloF:integer;Sender: TObject);

btnSend[Cislo].onClick:=OdeslatForm(CisloF); 

procedure TForm1.OdeslatForm(CisloF:integer;Sender: TObject);

CisloF:integer

 var btnSend:array of TButton;

memoWri:array of TMemo;

formchat:array of TForm;



procedure TForm1.OdeslatForm(CisloF:integer;Sender: TObject);

begin

    ClientSocket1.Socket.SendText(memoWri[CisloF].Lines.Strings[0]);

end;



procedure Tform1.FormCreate(Cislo:integer);

begin

  formChat[Cislo]:=Tform.CreateNew(Form1);

  formChat[Cislo].show;

  memoWri[Cislo]:=TMemo.create(self);

  memoWri[Cislo].Parent:=formChat[Cislo];

  btnSend[Cislo]:=TButton.Create(self);

  btnSend[Cislo].parent:=formChat[Cislo];

  btnSend[Cislo].onClick:=OdeslatForm(Cislo); //Error: Not enough actual parameters   

end;

Ok diky moc mi to pomohlo.

Lze za behu programu zmenit napr

array [1..50] of integer

array [1..100] of integer

Diky za rady. S posilanim pres server problem nemam, vzdy kdyz poslu zpravu tak poslu od koho je, pro koho je a potom samotny text, ale pouziji teda vice socketu to by mohlo vyresit muj problem.

Muj problem totiz vezi jenom vtom, ze kdyz vytvarim formy dynamicky a vytvorim jich treba 5 a vsechny maji stejne jmeno a stejna jmena komponent a ja nevim jak zacilit na kazdy znich zvlast, ale kdyz na kazdy dam socket tak ten se pripoji k serveru odesle mu ze prijima data jen od napr uzivatele1 a potom kdyz mi treba bude psat uzivatel1 tak to rovnou pujde do toho dynamicky vytvorene socketu a ne do socketu ktery je na kontakt listu.

To by mohlo fungovat ne?

Hm tím co jsi napsal myslíš to abych pri vytvoření dalšího formu vytvořil i další socket? Nebo vytvorit tolik socektu jako mam kontaktu(tohle by asi nevyresilo muj problem protoze se ted nepripojuji primo ale vsechno jde pres server)?

Dělám chat a když chci s někým psát vyberu někoho z kontakt listu a pro něj dynamicky vytvorím nový formulár s komponentami. Jenže problém je v tom že když chatuju s více lidmi vytvoří se více formulářu ale všechno chodí jen do posledně vytvořeného, tak hledám vhodný způsob jak označit jednotlivé formuláře abych vědel s kterým mám pracovat a do kterého mam odesílat data.

Napadlo mě že při vytvoření formuláře mu dam Tag a podle toho potom vybíram jednotlivá okna jenže nevím jak pote vybírat jednotlivé formy do kterých se bude psát.

Ještě mě napadlo ze misto deklarace (napr Okno:TForm) napsat (Okno: array of [1..50] of TForm) a pote bych vedel jak vybirat ruzne formy jenze to me omezuje na urcity pocet moznych otevrenych oken a jeste nevim jestli je to vhodne vzhledem k mistu v pameti kdyz bych tento zpusob musel aplikovat i na mema a tlacitka v tom formu.

Prozatím jeto napsany v této podobě(bez zmen velikosti atd):

var  formChat:TForm;memoRec,memoWri:TMemo;btnSend:TButton;

procedure Tform1.novyForm;

begin

  formChat:=Tform.CreateNew(Form1);

  formChat.show;

  memoRec:=TMemo.create(self);

  memoRec.Parent:=formChat;

  memoWri:=TMemo.create(self);

  memoWri.Parent:=formChat;

  btnSend:=TButton.Create(Self);

  btnSend.parent:=formChat;

end;

Dobře díky, takže když se někdo připojí otevře se pro ně socket a když se odpojí zavře se?
Stím že by se dalo použít serversocket1.Socket.Connections[I]; stim že když za "I" dosadím číslo tak
se vybere "I" socket a pote se socket.sendtext(Text); odesle na socket ktery jsem vybral pomoci serversocket1.Socket.Connections[I]; nebo je na to jiny prikaz? Nemám momentálně více počítačů, abych to vyzkoušel.

Předem říkám že s delphi zas tak moc neumím a proto se ptám.

Snažím se vytvořit komunikační program, celé to chci realizovat pomocí clientsocket a serversocket. Chci to tak, aby se clienti připojili na server a potom by odesílali texty ve forme příjemce/samotný text (napr 192.168.0.20/Cau), server by zprávu zpracoval a na adresu 192.168.0.20 odeslal "Cau", takže by se dal pouzit prikaz socket.SendText, ale nevím jak nastavit aby se zpráva poslala na adresu kterou chci.

Na straně serveru by to asi celé mohlo vypadat:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Zprava:=Socket.ReceiveText;
Decode; //rozkouskovani zpravi na IP a Text
//avsak zde nevim jak nastavit cilovou ip adresu
socket.sendtext(Text);
end;

Ptám se tedy jen na to jak nastavit IP adresu na kterou chci text odeslat.

Prave co jsem koukal na programovani indy a socketu tak sockety mi prijdou vic srozumitelny nez indy.

Mám za ukol naprogramovat aplikaci pro komunikaci po pocitacove siti co bude obsahovat chat a posilani souboru a nevim jestli bude lepsi programovat se socketama a nebo s indy. Sockety mi prijdou vic "lidstejsi" ale nevim jestli umi dostatek funkci pro takovou aplikaci. Tak se ptam co bude lepsi.

Ok diky sice nepomohlo resetovani pisma ve wordu ale az v nastavenim windowsu ale diky .

hm taky jsem ted zjistil ze to dela jen u pisma typu Times New Roman

Nemuzu vypnout kurzivu. Kdyz dám tucne nebo jakkoli jinak text sformatuji tak kurziva zmizi ale kdyz chci text bez kurzivi bez podtrzeni, proste normalni text, tak to nejde text je porad s kurzivou zkousel jsem preinstalovat office ale nepomohlo.

Pouzivam office 2003.

Hmm dobre diky za rady.

No takhle je to rocnikovy projekt nechci vas nejak zatezovat mima problemama ale problem je v uciteli ze on programovani neuci ale ma na starosti rocnikovi projekty a v tom je ten problem on to neuci a vubec netusi co umime a rozhodne to neni na rocnikovej projekt na maturitu ale co nadelam. Tohle bylo jeste nejlehci zadani.

Přesné zadání:
Navrhněte a napište aplikaci umožňující komunikaci po počítačové síti. Aplikace bude obsahovat chat, posílání souborů a kreslící plátno.

Mám za ukol: Navrhněte a napište aplikaci umožňující komunikaci po počítačové síti.( Aplikace bude obsahovat chat, posílání souborů a kreslící plátno. to ale zatim neni dulezite) Musím pripomenout ze poradne umi jen v Delphi7 a jedna se o komunikaci jen v pocitacove siti ne v celem internetu.

Potrebuju poradit jak vubec zacit abych nezacal a potom zjistil ze to nejde nebo bude lepsi jina varianta. Premyslel jsem a prisel jsem na to ze to cele budu realizovat pomoci komponent ClientSocket a ServerSocket. Jenze podle toho co jsem tak zjistil chtelo by to server kam by se ukladali ucty ktere jsou online, pres tento server by sli zpravy soubory atd. A nebo by kazdy byl takovy maly server a kdyby se pripojil ( zapnul program) tak by se vyslal broadcast ze se pripojil a v contactlistu by se zobrazil (tato varianta mi prijde lehci a hlavne nebude potreba uz zmineni server, ale nevim jestli to je realizovatelne takze nechci zacit ztravit nad tim nekolik tydnu a potom zjistit ze to nejde).

A ted co vlastne chci.
Nevím jestli takhle cela myslenka je dobra a zda bych ji mel dal rozvijet nebo pouzit uplne jine komponenty jiny postup atd.
Takze jestli byste mi mohly poradit nebo podat navrhy jak bych mel zacit.

P.S. Omlouvam se za moji cestinu a moje vyjadrovani :)

Kdyz napisu neco v lazarusu pujde to na winech i linuxu?

mam za ukol

Napište multiplatformní aplikaci „Subnet calculator“. Tato kalkulačka bude umět pracovat s Ipv4 i Ipv6.

Hlavne poradne umim jen v delphi a tak lazarus by mohla byt volba jak udelat multiplat. aplikaci.

Dobry den,
potreboval bych naprogramovat multyplatformní aplikaci ale nejak nevim vcem vcem se da programovat. V cem poradne umim je delphi a slysel jsem neco ze Lazarus je docela podobny delphi a ze dela i multyplatformni aplikace ale nevim to jiste tak se chci zeptat jestli opravdu kdyz neco napisu v lazarusu jestli to bude multyplatformni a jestli programovani vnem hodne podoba delphi. Taky na zaver by me zajimalo v cem vsem se daji programovat multyplatformni aplikace.