Android tarafında belirli bir seviyeye geldim sayılır, Artık IOS ekosistemi ile de tanışmak gerekiyordu, Swift ile de belirli bir yere gelebilmek için çalışmalara başladık hayırlısı ile.. Her ikisinde de native olarak…
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…
MySQL Event Kullanımı
Eventler, MySQL’e 5.1.6 Sürümünden sonra gelen Zamanlanmış Görevler özelliğidir ve varsayılanda kapalıdır. Öncelikle Aşağıdaki komutla bu özellik açılır.
|
1 2 3 4 5 |
SET GLOBAL event_scheduler = 1; |
Şimdi bir senaryo üzerinde anlayalım, benim sürekli hata analizleri için kullandığım…
MySQL View Kullanımları
Merhabalar, Son derece basit bir dille view’lerden bahsetmeye çalışacağım bu sefer, View’ler Mysql 5.0’dan sonra gelen bir sanal tablo özelliğidir. Üzerinde sadece Select sorguları gerçekleştirilebilir, update delete gibi tablo üzerinde değişiklik yapacak…
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 |