02-12-2019, Saat: 09:21
Delphi Tethering İle bir Chat Projesi Yapıyorum. Server Tarafını Komple Yazdım bir problem yok clientler arası tüm clientlerle birbirleri arası görüşme yaptırabiliyorum. Tek istediğim şey Client to Client Mesaj atabilmesi Bununla Alakalı bir kac bisi yaptım fakat olmadı. bu konuda yardımlarınızı bekliyorum.
Örnek Verecek Olursam
Client 1
Client 2
Client 3 Bunlar ağda online olan kullanıcılarım
Client 1 den Client 3 e Mesaj atabileceğim aynı zamanda
Client 3 den client 1 e
Clientler Üzerinde 3 Farklı Grubum var Bunları ise group, user, alluser şeklinde 3 kısma ayırdım
Tethering de İse şunları yapıyprum
Örnek Verecek Olursam
Client 1
Client 2
Client 3 Bunlar ağda online olan kullanıcılarım
Client 1 den Client 3 e Mesaj atabileceğim aynı zamanda
Client 3 den client 1 e
Clientler Üzerinde 3 Farklı Grubum var Bunları ise group, user, alluser şeklinde 3 kısma ayırdım
procedure TClientMain.btnSendClick(Sender: TObject);var I : Integer; lvMessage:String; lvMessageYou:String; begin lvMessage := Trim(memSendmessage.Text); memSendmessage.SetFocus; if lvMessage = '' then exit; case lvMessagetype of // Seçilen Kullanıcı Grubuna Mesaj eGroup: begin end; // Tek Kullanıcı İle Görüşme eUser: begin Problemli yer lvMessageYou := 'Sen:' + Trim(memSendmessage.Text); MemMessages.Lines.Add(lvMessageYou); for I := 0 to ClientAppProfile.ConnectedProfiles.Count -1 do begin ClientAppProfile.Resources.FindByName('UserName').Value := 'SomeValue'; // if ClientAppProfile.Text = lvUserIdSendMessage then ClientAppProfile.SendString(ClientAppProfile.ConnectedProfiles[I],SendMessageUserAdd(lvUserName,lvMessage),SendMessageUserAdd(lvUserName,lvMessage)); end; end; // Sisteme Kayıtlı Tüm Kullanıcılara Mesaj Gönderme. eAllUser: begin lvMessageYou := 'Sen:' +Trim(memSendmessage.Text); MemMessages.Lines.Add(lvMessageYou); for I := 0 to ClientAppProfile.ConnectedProfiles.Count -1 do begin ClientAppProfile.SendString(ClientAppProfile.ConnectedProfiles[I],SendMessageUserAdd(lvUserName,lvMessage),SendMessageUserAdd(lvUserName,lvMessage)); end; end; // ShowMessage(ClientAppProfile.ConnectedProfiles.Count.ToString); memSendmessage.Clear; end;
Tethering de İse şunları yapıyprum
if AResource.ResType = TRemoteResourceType.Data then
begin
case lvMessagetype of
// Seçilen Kullanıcı Grubuna Mesaj
eGroup:
begin
end;
// Tek Kullanıcı İle Görüşme
eUser:
begin
//if Assigned(AResource.Profile) then
// sIdentifier := AResource.Profile.Identifier;
MemMessages.Lines.Add(AResource.Value.AsString);
MemMessages.Lines.Add('');
end;
// Sisteme Kayıtlı Tüm Kullanıcılara Mesaj Alma
eAllUser:
begin
lvUseName := lvUserName;
MemMessages.Lines.Add(AResource.Value.AsString);
MemMessages.Lines.Add('');
end;
end;
end;
Ayriyetten proceni Build edemiyorsun Kesinlikle Uzak durmak gerekir bende başka chat olaylarına bakacağım.
ointer);
Var
MacID, DIP, HostName, Shares:String;
Begin
Thread_Activate(TID);
{---}
Repeat
Sleep(1);
Until Prms_Count(TID)>0;
DIP:=Prms_Get(TID, 0);
MacID:=GetMacAddr(DIP);
If MacID<>'00-00-00-00-00-00' Then
Begin
Shares:=GetShares(DIP).Text;
HostName:=GetHostName(DIP);
form1.memo1.Lines.Add( '' );
form1.memo1.Lines.Add( DIP+' '+HostName+' / '+MacID );
form1.memo1.Lines.Add( Trim( Shares ) );
End;
{---}
StopThread(TID);
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
I:LongInt;
begin
memo1.Clear;
For I:=0 To 255 do
Begin
Prms_Add_Ex( StartThread( Addr(DoScan) ), form1.edit1.text+IntToStr(I) );
Application.ProcessMessages;
End;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Thread_ActiveCount>0 then
button1.Enabled:=False else
button1.Enabled:=true;
form1.Caption:=' Thread: '+IntToStR(Thread_ActiveCount);
end;
end.
WORD;
TID:LongInt;
Begin
Result:=0;
TID:=GetEmty_TID;
If TID>0 Then
Begin
Try
Threads_Activate[TID]:=False;
Threads[TID]:=BeginThread(nil, 0, Addr(ThreadFunc), Pointer(TID), 0, Temp);
SetThreadPriority(Threads[TID], THREAD_PRIORITY_NORMAL);
Prms[TID].Clear;
Result:=TID;
Repeat
Sleep(1);
Until (Threads_Activate[TID]=True);
Except
StopThread(Pointer(TID));
Result:=0;
End;
End;
End;
{ *-*--*-*----**-*--*-**-*-*--**--*-*-*-*-*-*-*-* }
Var
I:LongInt;
Begin
For I:=1 To MaxThread Do
Begin
Threads[I]:=0;
Prms[I]:=TStringList.Create;
End;
End.
