1211 uygun sonuç bulundu

gönderen SimaWB
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: 940

Re: fmx indy TCP haberleşmesi hakkında

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.
gönderen SimaWB
06 Tem 2018 09:36
Forum: Delphi VCL
Başlık: dll thread synchronize callback metod problem.
Cevaplar: 2
Görüntüleme: 968

Re: dll thread synchronize callback metod problem.

TThread.Synchronize yerine TThread.Queue deneyebilirsiniz. Malum; Synchronize işin bitmesi için beklerken Queue beklemez.
gönderen SimaWB
02 Tem 2018 10:04
Forum: Delphi VCL
Başlık: https sll not found library
Cevaplar: 3
Görüntüleme: 704

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
gönderen SimaWB
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: 397

Re: Yeni Edit Bileşeni oluşturma ve YeniEdit.text'i değişkene atamak

KeyPress'te

Kod: Tümünü seç

TEdit(Sender).Text
kullanabilirsiniz.


Ayrıca oluşturduğunuz editler için liste oluşturabilirsiniz:

Kod: Tümünü seç

var
  Liste: TObjectList<TEdit>;
  //yada
  Liste: TObjectList;
gibi...
gönderen SimaWB
04 Nis 2018 10:10
Forum: Programlama
Başlık: Memo araya satır ekleme
Cevaplar: 5
Görüntüleme: 613

Re: Memo araya satır ekleme

Memo1.Lines.Insert()
gönderen SimaWB
19 Oca 2018 11:01
Forum: Programlama
Başlık: Webbrowser olevariant to jpegImage problem
Cevaplar: 5
Görüntüleme: 379

Re: Webbrowser olevariant to jpegImage problem

uses MSHTML;
gönderen SimaWB
18 Oca 2018 06:40
Forum: Programlama
Başlık: Webbrowser olevariant to jpegImage problem
Cevaplar: 5
Görüntüleme: 379

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...
gönderen SimaWB
10 Oca 2018 12:19
Forum: Programlama
Başlık: Multithread application ile çözüm üretmek
Cevaplar: 8
Görüntüleme: 799

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 bir sürü yerde sorunsu...
gönderen SimaWB
03 Oca 2018 06:12
Forum: Programlama
Başlık: TCP Client
Cevaplar: 3
Görüntüleme: 433

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...
gönderen SimaWB
26 Ara 2017 10:28
Forum: Programlama
Başlık: how to add / extract header from tidbytes ?
Cevaplar: 4
Görüntüleme: 409

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; 
gönderen SimaWB
26 Ara 2017 03:59
Forum: Programlama
Başlık: how to add / extract header from tidbytes ?
Cevaplar: 4
Görüntüleme: 409

Re: how to add / extract header from tidbytes ?

You can use Move procedure. Like this:

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));
Then send NewBuffer...
gönderen SimaWB
19 Ara 2017 09:49
Forum: Programlama
Başlık: Türkçe karakter kullanmaya cesaret ediyor musunuz
Cevaplar: 2
Görüntüleme: 426

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.