Jump to content

rafael.vieira

Members
  • Posts

    5
  • Joined

  • Last visited

Profile Information

  • Gender
    Male
  • Location
    Florianópolis, Santa Catarina

Contact Methods

  • Skype
    rafael.augusto.vieira

rafael.vieira's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1. Hello Sherzod, I using version 1.90.0.1535. About my e-mail adjust, i work for the person that bought uniGui license, so i don't have access to the mentioned area. Thanks.
  2. Hi, How can i get the text typed on a UniTagField that is not present in the existing list? Ex.: UniTagField1.Items -> Car;Bus;Plane And in a text area, when i typed any other word, for example "Test", i get this value "Test" in the OnExit event or other like ColumnFilter on the UniDbGrid? Thanks.
  3. Hi everyone, Does anyone use named pipes in a uniGui Web Project? In specifically Russel Libby? I've tried to use (example below) but i didn't have success. private FServer : TPipeServer; FClient1 : TPipeClient; procedure OnClientPipeMessage(Sender : TObject; Pipe : NativeUInt; Stream : TStream); procedure OnServerPipeMessage(Sender : TObject; Pipe : NativeUInt; Stream : TStream); procedure TUniFrame1.UniFrameCreate(Sender: TObject); begin FServer := TPipeServer.Create(self); FServer.PipeName := 'test'; FServer.Active := True; FServer.OnPipeMessage := OnServerPipeMessage; FClient1 := TPipeClient.Create(self); FClient1.PipeName := 'test'; FClient1.OnPipeMessage := OnClientPipeMessage; if not FClient1.Connect then uniMemo1.Lines.Add('Not connected'); end; procedure TUniFrame1.OnServerPipeMessage(Sender: TObject; Pipe: NativeUInt; Stream: TStream); var S : String; begin SetLength(S, Stream.Size); Stream.Read(S[1], Length(S)); uniMemo1.Lines.Add(S); end; procedure TUniFrame1.UniButton1Click(Sender: TObject); var S : String; begin S := uniEdit1.Text; if Length(S) > 0 then FServer.Write(FServer.Clients[0], S[1], Length(S)); end; procedure TUniFrame1.UniButton1Click(Sender: TObject); var S : String; begin S := uniEdit1.Text; if Length(S) > 0 then FServer.Write(FServer.Clients[0], S[1], Length(S)); end; procedure TUniFrame1.UniButton2Click(Sender: TObject); var S : String; begin S := uniEdit2.Text; if Length(S) > 0 then FClient1.Write(S[1], Length(S)); end; Ps: The unit Pipes is attached. Pipes.rar My uniGui version: 0.93.0.996
×
×
  • Create New...