Delphi – Yakup ULUTAŞ

Kim korkar Semaphore’dan

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)…

10 Eylül 2019
0

DelphiGenel

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…

21 Ağustos 2019
2

yhackup
Hallo, ich habe noch nie eine andere Komponente verwendet, da tdxmemdata vorhanden ist. Lassen ...
14 October 2019
Enrico
Brauche ich da eine spezielle Komponente? dxmemdata Hast Du auch ein Beispiel ohne diese Ko...
4 October 2019

Delphi

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…

13 Mart 2019
2

yhackup
Merhabalar, ben ücretsiz olan İnternet Clever Suit kullandım, eğer indy kullanıyorsanız ...
9 July 2019
cuneyt
could not load SSL library hatası veriyor. Neden acaba?...
9 July 2019

DelphiGenel . . .

Fotoğraf Düzenleyici

25 Kasım 2017
0

DelphiGenel . . .

.Net Ortamında geliştirilen dll içerisindeki fonksiyonu Delphi ile kullanmak.

27 Eylül 2017
0

DelphiGenel

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…

6 Ağustos 2017
0

DelphiGenel . . .

Uzak Masaüstü Bağlantısı – Remote Desktop Connection Uygulaması

28 Haziran 2017
0

DelphiGenel . . .

Delphi Soap Uygulamasında Client Ip’ini Yakalamak

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;

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;

20 Mayıs 2017
0

DelphiGenel . . .

Delphi ile DataSet To XML

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

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;

XMl.SaveToFile(Path);

ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE);

end

20 Mayıs 2017
0

DelphiGenel . . .

Delphi ile Gmail Hesabından Mail Gönderimi

Benim en çok kullandığım şeydir kendileri. Yaptığınız exe dizininde libeay32.dll ve ssleay32.dll dosyaları bulunması gerekiyor aksi takdirde ssl hatası alırsınız. dll dosyalarını Buradan İndirebilirsiniz. gmaildll İlk mail gönderiminde başarısız olacaktır ve gmail…

30 Aralık 2016
2

Ramazan
Güvenliği düşük uygulama engellendi Google, kullanmaya çalıştığınız uygulamayı g�...
19 October 2019
Ramazan
https://blog.yakupulutas.com/wp-content/uploads/2016/12/gmaildll.rar...
19 October 2019