Delphi Skype Tarzı Chat Programı

[dkadir]

Selamun Aleyküm
Delphi 7 ve XE7 kullanıyorum
Online toplantı yapılabilir bir chat programı yazmam lazım.
sesli görüşme ve mesajlaşmadan ibaret olacak. Acaba yardımcı olurmusunuz ?

[SimaWB]

Siz birisinin sizin için proje yapmasını istiyorsunuz. Bence Eleman Arayanlar bölümüne yazın.

[dkadir]

sadece yol gösteren birisini arıyorum

[pasa_yasar]

Facebook gibi firmalar XMPP altyapısını kullanıyor. Tabi daha fazla geliştirmiş bir şekilde kullanıyorlardır. Bende jabber ve XMpp sistemi kullanarak mesajlaşma sağlıyorum fakat sesli arama özelliği üzerinde hiç çalışmadım. Bu oldukça detaylı bir konu hele ses girince başlı başına bir iş. Onun kendine göre protokolleri var. Telefon programı üzerine sesli arama çağrı merkezleri için oldukça detaylı bir iş.
Mesajlaşma için : XMPP (NSoftware,www.aidaim.com nesneleri mevcut) bakabilirsin
Sesli arama ise : sipcomponents.com inceleyebilirsin.

XMPP ile ikisini yapan varmı bilmiyorum.

[dkadir]

Yorumun için teşekkür ederim
ses işini bi çözebilsem gerisi kolay da ses işi tıkıyor işi

[G.Arkas]

Yorumun için teşekkür ederim
ses işini bi çözebilsem gerisi kolay da ses işi tıkıyor işi

Ses işi kolay, sen önce p2p ve port yönlendirme olmadan ve hiçbir firewall'a takılmadan bağlantı kurma işini çöz

[dkadir]

Nasıl kolay hocam günlerdir uğraşıyorum yapamadım o konuda yardımcı olursanız gerisini hallederim

[ertank]

Merhaba,

Ses kaydını aşağıdaki şekilde yapabilirsiniz. Örnek XE7'ye uygun verilmiştir. Kaydedilen ses dosyası kullanıcının Dökümanlar dizini içinde saklanacaktır.

Kod: Tümünü seç

uses
  System.IOUtils,
  MMSystem;

procedure TForm14.btnRecordClick(Sender: TObject);
begin
  // recording .... Stereo 44KHz 16Bits
  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);
  mciSendString('SET mySound ' +
                     'TIME FORMAT MS ' +
                     'BITSPERSAMPLE 16 ' +
                     'CHANNELS 2 ' +
                     'SAMPLESPERSEC 44100 ' +
                     'BYTESPERSEC 176400 ' +
                     'ALIGNMENT 4',
                     nil, 0, handle);
  mciSendString('RECORD mySound', nil, 0, Handle);
end;

procedure TForm14.btnStopRecordingClick(Sender: TObject);
var
  PFileName: PWideChar;
  FileName: WideString;
begin
  FileName := 'SAVE mySound "' + TPath.GetDocumentsPath() + TPath.DirectorySeparatorChar + 'kaydedilen_ses_dosyasi.wav"';
  PFileName := Addr(FileName[1]);

  mciSendString('STOP mySound', nil, 0, Handle);
  mciSendString(PFileName, nil, 0, Handle);
  mciSendString('CLOSE mySound', nil, 0, Handle);
end;

Ancak yapmak istediğiniz uygulama ciddi ve oldukça uğraştırıcı bir uygulamadır. Kendi sunucularınıza ihtiyacınız olacağını düşünüyorum. Zira internet üzerinde direk bağlantı imkanı olmayacaktır.

Öncelikle metin iletişimini denemenizi önerebilirim. Daha sonra ses ile ilgili konulara bakmakta fayda olabilir.

[carsoft]

Burayı bir incele istersen

Kod: Tümünü seç

http://stackoverflow.com/questions/25468252/delphi-xe6-indy-chat-room

[dkadir]

İnceledim ama o mesajlaşma tarzı bişey ben onları hallettim hocam bana lazım olan sadece programa ses özelliği katmam

[G.Arkas]

Nasıl kolay hocam günlerdir uğraşıyorum yapamadım o konuda yardımcı olursanız gerisini hallederim

MmSystem içerisindeki Wav özelliklerini incele. Sesi kaydetmeden karşıya yollaman lazım. Bunun için TStream sınıfı işini görür. Önce buradan başla, sonra Socket altyapını oluştur. MultiThread olmalı. Ses ve text aynı anda gidebilmeli. Altyapını kurarsan geriye sadece paket gönderip almak kalır. Ama sana yukarıda da söylediğim gibi önce P2P işini çöz. Sen şu anda basit bir texti herhangi bir bilgisayardan, herhangi bir işlem yapmadan (port yönlendirme, FwBaypass vs) başka bir bilgisayara gönderebiliyormusun? Önce bununla başla. Bu en büyük problemin olacak.