Sunucu kapandığında TCPClient'ın OnDisconnected olayı tetiklenmez. Maalesef o olay sadece IdTCPClient1.Disconnect() methodunu kullandığınızda tetiklenir.
Sunucunun kapandığını anlamak için periyodik olarak veri okumaya/yazmaya çalışmalısınız.
1211 uygun sonuç bulundu
- 08 Ağu 2018 06:20
- Forum: FireMonkey ve Mobil
- Başlık: fmx indy TCP haberleşmesi hakkında
- Cevaplar: 2
- Görüntüleme: 1793
- 06 Tem 2018 09:36
- Forum: Delphi VCL
- Başlık: dll thread synchronize callback metod problem.
- Cevaplar: 3
- Görüntüleme: 2841
Re: dll thread synchronize callback metod problem.
TThread.Synchronize yerine TThread.Queue deneyebilirsiniz. Malum; Synchronize işin bitmesi için beklerken Queue beklemez.
- 02 Tem 2018 10:04
- Forum: Delphi VCL
- Başlık: https sll not found library
- Cevaplar: 3
- Görüntüleme: 1653
Re: https sll not found library
Kullandığınız Delphi versiyonu destekliyor ise TNetHTTPClient kullanırsanız SSL DLL'leri ile uğraşmazsınız:
http://www.delphican.com/could-not-load ... brary.html
http://www.delphican.com/could-not-load ... brary.html
- 04 Haz 2018 03:55
- Forum: Programlama
- Başlık: Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak
- Cevaplar: 3
- Görüntüleme: 861
Re: Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak
KeyPress'te kullanabilirsiniz.
Ayrıca oluşturduğunuz editler için liste oluşturabilirsiniz:
gibi...
Kod: Tümünü seç
TEdit(Sender).TextAyrıca oluşturduğunuz editler için liste oluşturabilirsiniz:
Kod: Tümünü seç
var
Liste: TObjectList<TEdit>;
//yada
Liste: TObjectList;
- 14 May 2018 03:06
- Forum: Programlama
- Başlık: Rest Server i Servis olarak çalıştırma
- Cevaplar: 5
- Görüntüleme: 1202
Re: Rest Server i Servis olarak çalıştırma
Burada örneklendirilmiş:
https://stackoverflow.com/questions/130 ... ws-service
https://stackoverflow.com/questions/130 ... ws-service
- 04 Nis 2018 10:10
- Forum: Programlama
- Başlık: Memo araya satır ekleme
- Cevaplar: 5
- Görüntüleme: 1476
Re: Memo araya satır ekleme
Memo1.Lines.Insert()
- 08 Mar 2018 09:34
- Forum: Web Tabanlı Diller(PHP, ASP vb..)
- Başlık: Bootstrap Modal CKeditor
- Cevaplar: 4
- Görüntüleme: 3500
- 19 Oca 2018 11:01
- Forum: Programlama
- Başlık: Webbrowser olevariant to jpegImage problem
- Cevaplar: 5
- Görüntüleme: 1068
Re: Webbrowser olevariant to jpegImage problem
uses MSHTML;
- 18 Oca 2018 06:40
- Forum: Programlama
- Başlık: Webbrowser olevariant to jpegImage problem
- Cevaplar: 5
- Görüntüleme: 1068
Re: Webbrowser olevariant to jpegImage problem
WebBrowser'daki bir resmi form üzerindeki bir TImage nesnesi içine aşağıdaki kodla çizdirebiliyorum: procedure TForm4.Button2Click(Sender: TObject); var Doc : IHTMLDocument3; imgEL : IHTMLImgElement ; imgRND : IHTMLElementRender ; begin Doc := WebBrowser1.Document as IHTMLDocument3; imgEL := Doc.get...
- 10 Oca 2018 01:21
- Forum: Programlama
- Başlık: Bir Cümledeki Sesli Harfleri Çıkarıp Sadece Sessiz Harfleri Bırakma
- Cevaplar: 4
- Görüntüleme: 1046
- 10 Oca 2018 12:19
- Forum: Programlama
- Başlık: Multithread application ile çözüm üretmek
- Cevaplar: 8
- Görüntüleme: 1841
Re: Multithread application ile çözüm üretmek
MultiThread çalışmanın en büyük zorluğu da budur zaten: Kodunuzu derlerken sorun olmaz. Onlarca kez çalıştırırsınız sorun olmaz. Ama bir bakmışsınız "bazı" müşterilerde "bazen" sorun çıkar. Bizler doğal olarak sorunu işletim sisteminde, donanımda vs. ararız. Çünkü aynı yazılım bi...
- 03 Oca 2018 06:12
- Forum: Programlama
- Başlık: TCP Client
- Cevaplar: 3
- Görüntüleme: 929
Re: TCP Client
Ayrı bir thread içerisinde sürekli olarak IdTCPClient'in InputBuffer'ın boş olup olmadığını kontrol etmelisiniz. Tabi bu thread'e parametre olarak IdTCPClient'ı tanıtmalısınız. Aşağıdaki kabaca örneklemeye çalıştım. procedure TBirThread.Execute; var rxBuf: TIdBytes; begin while not Terminated do beg...
- 26 Ara 2017 10:28
- Forum: Programlama
- Başlık: how to add / extract header from tidbytes ?
- Cevaplar: 4
- Görüntüleme: 1292
Re: how to add / extract header from tidbytes ?
if you use string then you have to send the length of this string to another side. So; may be your THeader type should be like this:
Kod: Tümünü seç
THeader = packed record
ChannelnameLength: Integer;
Channelname: string;
Channelnumber: integer;
end;
- 26 Ara 2017 03:59
- Forum: Programlama
- Başlık: how to add / extract header from tidbytes ?
- Cevaplar: 4
- Görüntüleme: 1292
Re: how to add / extract header from tidbytes ?
You can use Move procedure. Like this:
Then send NewBuffer...
Kod: Tümünü seç
var
NewBuffer: TIdBytes;
header: THeader;
begin
SetLength(NewBuffer, Length(BufferChannel) + Length(header.Channelname) + SizeOf(header.Channelnumber));
Move(BufferChannel[0], NewBuffer[0], Length(NewBuffer));
- 19 Ara 2017 09:49
- Forum: Programlama
- Başlık: Türkçe karakter kullanmaya cesaret ediyor musunuz
- Cevaplar: 2
- Görüntüleme: 772
Re: Türkçe karakter kullanma cesaret ediyor musunuz
Ben şu şekilde kullanmıyorum:
Kod: Tümünü seç
type
TSabır = class
class procedure Çek;
end;
class procedure TSabır.Çek;
begin
WriteLn('Allahım sen sabır ver!');
end;
begin
TSabır.Çek;
end.