Merhabalar, Senkronizasyon (synchronization) mekanizmalarından biri olan Semaphore’la ilgili bir örnek yapacağız. Basit bir dille anlatmak gerekirse, Birden fazla iÅŸin (process) aynı anda çalıştığında birbirleri için risk oluÅŸturabileceÄŸi anlarda (critical sections)…
Delphi & Firebase Database Entegrasyonu Nasıl Sağlanır ?
Merhabalar, Bu yazıda , Delphi Projenize Google Firebase Database Entegrasyonunu nasıl yapacağınızdan bahsedeceÄŸim. Firebase Google Amcanın bize sunduÄŸu çok güzel kısmi ücretsiz, harika özellikler barındıran bir proje, biz bu yazımızda…
Delphi ile Youtube data API iÅŸlemleri
Merhabalar, Youtube’un bize saÄŸladığı apileri Delphi uygulaması ile nasıl kullanabiliriz (in) cevabı bu yazıda olacak. Öncelikle Buradaki youtube developer sitesinden bir api key edinmeniz gerekiyor. Api keyinizi aldıktan sonra aÅŸağıdaki…
Toplu Olarak Dosya Uzantıları Değiştirme
Merhabalar. Bir klasör içerisindeki dosyaların uzantılarını deÄŸiÅŸtirmek için, Ren komutunu kullanabiliriz.  Ren yazdıktan sonra boÅŸluk bırakıp ÅŸu andaki dosya formatını, tekrar boÅŸluk bırakıp olması gereken uzantıyı aÅŸağıdaki gibi yazıp bat…
Delphi Soap Uygulamasında Client Ip’ini Yakalamak
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function Getip: string; var mWebModule : TWebModule; Dispatcher : IWebDispatcherAccess; begin Result := 'Tespit Edilemedi'; mWebModule := GetSOAPWebModule; if mWebModule <> nil then begin if Supports(mWebModule, IWebDispatcherAccess, Dispatcher) then Exit(Trim(Dispatcher.Request.RemoteAddr)); end; end; |
Delphi ile DataSet To XML
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Var XML : IXMLDOCUMENT; PolisoftXMLExport,TabloName,Field:IXMLNODE; i,a:integer; begin if Data.IsEmpty then begin ShowMessage('DataSet is not null'); Exit; end; XML := NewXMLDocument; XML.Encoding := 'utf-8'; XML.Options := [doNodeAutoIndent]; PolisoftXMLExport := XML.AddChild('PolisoftXMLExport'); for I := 1 to Data.RecordCount do begin TabloName := PolisoftXMLExport.AddChild('Police',i); Data.First; for a := 1 to Data.FieldCount do begin Field := TabloName.AddChild(Data.Fields[a-1].FieldName,0); Field.Text := Data.Fields[a-1].AsString; end; end; XMl.SaveToFile(Path); ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE); end |