Delphi arşivleri - Yakup ULUTAŞ

Delphi ile Youtube data API işlemleri

13 Mart 201914 Mart 2019 yhackup0

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 hazırladığımUV3 .pas dosyasını inceleyebilirsiniz. nerede ne yaptığımı uzun uzun anlatmaya zamanım yok ancak sorunuz olur ise aşağıdan sorabilirsiniz. Uygulamamızın ilk ekran görüntüsü. […]

Devamını Oku

Fotoğraf Düzenleyici

25 Kasım 201716 Mart 2019 yhackup0

Merhabalar, Telefonumda çektiğim her anım değerlidir benim için sık sık bilgisayarıma HDD ve DVD’ye yedeklerim. Fakat telefona format atıyoruz veya başka nedenlerdn , telefonun fotoğraf sayacı sıfırdan başlıyor DCIM_0001.JPG gibi bu fotoğrafların isimleri aynı olduğu için aynı klasöye yedeklenemiyor birbirini değiştiriyor veya _1 ekleyerek kaydediyor fotoğraf tarih sıralaması vs hepten karışıyor. Aşağıdaki yaptığım uygulama ile, […]

Devamını Oku

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

27 Eylül 201716 Mart 2019 yhackup0

Bazen bir projede bir iş yapmanız gerekir ancak kullandığınız yazılım dilinde bu işi yapmak biraz meşakatli iken farklı bir yazılım dilinde bu iş diğerine göre daha kolay olabilir. Böyle durumlarda bazen paylaşılabilir/kullanılabilir dll yazmak çok daha mantıklı olur . Örnek vermek gerekirse Güçlü bir şifreleme algoritması olan ( Gerçi Adamın birisi kırabilmiş bu şifreleme metodunu […]

Devamını Oku

Toplu Olarak Dosya Uzantıları Değiştirme

6 Ağustos 201716 Mart 2019 yhackup0

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 dosyası olarak kaydediniz. ve çalıştırınız. (Yönetici olarak çalıştırmayın.!)

Ren *.image *.jpeg
pause

1

2

3

4

5

6

Ren *.image *.jpeg

pause

Veya cmd konsolundan ilgili dosyaların dizinine ilerleyerekte bu komutu kullanabilirsiniz.

Devamını Oku

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

28 Haziran 201716 Nisan 2019 yhackup0

Merhabalar, Kendi işlerim için geliştirdiğim\kullandığım, Sunuculara uzaktan erişim (RDP) yapabilmemi sağlayan bir uygulamadır. Sınırsız sayıda Uzak Masaüstü Bağlantısı yapılabilir. Kayıtları şifrelenmiş bir şekilde bulunduğu dizinde tutar. 10’larca temaya sahiptir. 15 Adete Kadar Ücretsizdir. V8 ile Güncelleme ekranı eklendi.. İndirmek için tıklayınız. 0.0.10.318 Zorla bağlan özelliği eklendi. (Bir başka kullanıcı, Sizin bağlantınızı […]

Devamını Oku

Delphi Soap Uygulamasında Client Ip’ini Yakalamak

20 Mayıs 201716 Mart 2019 yhackup0

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;

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;

Devamını Oku

Delphi ile DataSet To XML

20 Mayıs 201716 Mart 2019 yhackup0

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

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;

XMl.SaveToFile(Path);

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

end

Devamını Oku

Delphi ile Gmail Hesabından Mail Gönderimi

30 Aralık 201616 Mart 2019 yhackup0

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 size bir mail gönderecektir “Şifrenizi başka biri biliyor” gibi, o maili açarak o kişinin siz olduğunuzu işaretlemeniz gerekiyor ve ilgili ekran sizi bir kaç ayar […]

Devamını Oku