Kullanıcı

Hoşgeldiniz Ziyaretçi. Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
03 Eylül 2010 13:45:52

Kullanıcı adınızı, şifrenizi ve aktif kalma süresini giriniz

Sohbet Penceresi

Son 5 Notlar:

25 AÄŸustos 2010 16:11:57
slm beyler
27 AÄŸustos 2010 10:00:56
arkadaşlar delphi ile fax nasıl gönderilir şeklinde konuya cevaplarınızı bekliyorum...
  XLG
01 Eylül 2010 17:00:37
arkdaÅŸlar admin kim ya
  XLG
01 Eylül 2010 17:00:55
bi maruzatım olacak ta
Bugün, 11:14:44
Arkadaşlar SUBHAN adlı arkadaşımızdan haberi olan var mı? Bir yıldır hiç siteye girmemiş? Sitesi de borçtan kapanmış. Başına bir şey mi geldi?

Show 50 latest

Gönderen Konu: Delphide Ses ve Görüntü Aktarimi  (Okunma sayısı 330 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı mahkum58

  • Yeni Üye
  • *
  • İleti: 11
  • Rep: +0/-0
  • Cinsiyet: Bay
Delphide Ses ve Görüntü Aktarimi
« : 08 Åžubat 2010 22:22:22 »
Merhaba Arkadaslar Ben yazili chat ve aynı zaman sesli ve kamera acıp chattekılerın sesını ve goruntusunu gorebılecegı bır program yapmak ıstıyorum yazılı chat tmm ama delphide ses ve goruntu nasıl ıletebılırım yardımlarınızı ve fıkırlerınızı beklıyorum saygılar.
ÖZGÜRLÜK VE BAĞIMSIZLIK KARAKTERİMDİR.

Çevrimdışı ozgurteknik

  • Yeni Üye
  • *
  • İleti: 6
  • Rep: +0/-0
Ynt: Delphide Ses ve Görüntü Aktarimi
« Yanıtla #1 : 08 Åžubat 2010 22:35:12 »
selam mahkum sorun ile bilgim yok ama ben senden birÅŸey rica edeceÄŸim
edit1 ve edit2 mat. işlemi yapıp label e yazdırıyorum. bunu sesli okutmak istiyorum kaydettiğim örneğin 1 sesini label 1 olunca nasıl çaldırabilirim. biraz aciliyetim var genel forumda 1 tane cevap var o linkide indiremedim kusura bakma

Çevrimdışı mahkum58

  • Yeni Üye
  • *
  • İleti: 11
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Delphide Ses ve Görüntü Aktarimi
« Yanıtla #2 : 08 Åžubat 2010 22:46:27 »
Projeni Bana Gönderirsen Yardimci Olmaya Calisirim.
ÖZGÜRLÜK VE BAĞIMSIZLIK KARAKTERİMDİR.

Çevrimdışı ozgurteknik

  • Yeni Üye
  • *
  • İleti: 6
  • Rep: +0/-0
Ynt: Delphide Ses ve Görüntü Aktarimi
« Yanıtla #3 : 09 Åžubat 2010 22:19:51 »
unit HESAPLAMA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Label3: TLabel;
    edit1: TEdit;
    edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1+s2;
label1.Caption:='+';
label2.caption:=Floattostr(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1-s2;
label1.Caption:='-';
label2.caption:=Floattostr(s);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1/s2;
label1.Caption:='/';
label2.caption:=Floattostr(s);

end;

procedure TForm1.Button4Click(Sender: TObject);
var
s1,s2,s:Real;
begin
s1:=Strtofloat(edit1.text);
s2:=Strtofloat(edit2.text);
s:=s1*s2;
label1.Caption:='X';
label2.caption:=Floattostr(s);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.


arkadaşım ilgilendiğin için teşekkür ederim saygılar