Genel arşivleri - Yakup ULUTAŞ

E-Devlette Yeni Hizmet – Kredi Limit ve Borç Bilgileri Raporu

16 Mart 201916 Mart 2019 yhackup0

E-Devlet kapısı dün itibariyle bizlere yeni bir kapı açtı.. Bu yeni hizmetin adı Türkiye Bankalar Birliği Risk Merkezi Raporu. Buradaki linke tıklayarak Rapor başvurusunda bulunabilirsiniz. Bu hizmet bize iki farklı türde rapor sunabiliyor, Kredi Limit ve Borç Bilgileri, Risk Merkezi üyesi banka ve banka dışı finansal kuruluşlardan kullandığınız kredilerin limit ve borç bilgilerinin yer […]

Devamını Oku

Bir HGS Macerası

7 Mart 201914 Mart 2019 yhackup2

Bir HGS Macerası Merhabalar bugün uzun zamandır uğraştığım bir HGS sorununu başımdan geçenleri anlatacağım belki birilerine faydası olur.. Sene 2014 aracımı alalı bir kaç ay olmuş sıla-ı rahime anne baba ziyaretine gideceğim otobanı kullanmam gerekiyor bu sebepten PTT ‘den gidip bir HGS satın aldım. 2,5 – 3 yıl kadar sonra aracımı satmam gerekti satmadan bir […]

Devamını Oku

Motor Yağı Numaralar Ne Anlama Geliyor ?

28 Şubat 201914 Mart 2019 yhackup3

Motor Yağı Numaralar Ne Anlama Geliyor ?

Devamını Oku

Trafik Sigortası Teklifi Al

23 Ocak 201914 Mart 2019 yhackup0

Trafik Sigortası Teklifi Al Tüm hakları Sigorta Bilgi ve Gözetim Merkezi’ne Aittir. https://www.sbm.org.tr/ × Dismiss alert Son 30 Gün kuralı… Teklif alabilmeniz için, trafik poliçenizin bitmesine 30 günden az süre kalmış olması gerekmektedir. × Dismiss alert Aşağıdaki bilgileri doldurup Teklif al butonuna tıklayınız…

Devamını Oku

Airbag Sargı Arızası ve Tamiri

21 Ocak 201914 Mart 2019 yhackup8

Arkadaşlar punto araçların arıbag sargısı belli bir süre arıza yapıyor. Genelde sinyal kol ünitesi komple değiştirilerek sorun çözülüyor. Son zamanlarda dolar kuru ötv vs derken sinyal kol üniteleri fiyatları aldı başını gitti. Cruise control olmayan sinyal kol üniteleri 500 TL civarında iken Cruise Controllü olanlarda 800-1000 TL civarında. Durum böyle olunca sargı tamiri ilk akla […]

Devamını Oku

Müzik İndirme Uygulaması

10 Ocak 201910 Nisan 2019 yhackup0

Merhabalar, Basit bir Youtube’dan müzik indirme uygulaması ve kaynak kodları. Not: Ülkemizde mp3 indirmek yasal değildir. Yandex.Disk’ten İndir

unit Ytindir;
interface
uses
Winapi.Windows,
System.SysUtils,
StrUtils,
shellapi,
System.json,
Vcl.Clipbrd,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls,
clHttp,
UYoutubeApi,
clHttpHeader,
IdHTTP,
System.Classes,
Vcl.Controls,
Vcl.ExtCtrls, IdTCPClient, IdTCPConnection, IdComponent, IdBaseComponent;
const
youtubeapiKey = 'AIzaSyDMQHKxxxxxxxxxxxxxxxxxxxxxxxx';
type
TForm1 = class(TForm)
YoutubeUrl: TEdit;
IdHTTP1: TIdHTTP;
Memo1: TMemo;
Panel1: TPanel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Download(link: string);
procedure GetMp3(link: String; path: string = '');
function GetName(val: string): String;
procedure YoutubeUrlClick(Sender: TObject);
procedure Logged(text: string);
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
wkod: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i1: Integer;
wkod: string;
begin
if Pos('youtube', YoutubeUrl.text) > 1 then
begin
i1 := Pos('watch?v=', YoutubeUrl.text) + 8;
wkod := Copy(YoutubeUrl.text, i1, 11);
end
else
begin
i1 := Pos('youtu.be', YoutubeUrl.text) + 9;
wkod := Copy(YoutubeUrl.text, i1, 11);
end;
Download(wkod);
end;
procedure TForm1.Download(link: string);
var
url: String;
begin
url := link;
TThread.CreateAnonymousThread(
procedure
var
yt: TYoutubeMp3Api;
begin
yt := TYoutubeMp3Api.Create;
GetMp3(yt.GetMp3link(url));
end).Start;
end;
procedure TForm1.GetMp3(link, path: string);
var
Resp: TMemoryStream;
MyHttp: TclHttp;
filename: String;
begin
Resp := TMemoryStream.Create;
MyHttp := TclHttp.Create(nil);
try
Logged('İndiriliyor...');
MyHttp.Get(link, Resp);
Logged('İndirildi.');
filename := Ifthen(Trim(Caption) = '', 'UnknownName', Caption);
filename := filename.Replace('"', '');
Resp.Position := 0;
Resp.SaveToFile(ExtractFilePath(Application.ExeName) + '/' + filename + '.mp3');
Logged(ExtractFilePath(Application.ExeName) + '/' + filename + '.mp3');
finally
Resp.Free;
MyHttp.Free;
end; // pdfindir
TThread.Queue(nil,
procedure
begin
ShellExecute(0, 'open', Pwidechar(ExtractFilePath(Application.ExeName) + '/'), nil, nil, SW_SHOWNORMAL);
end);
end;
function GetInfo(watch: String): String;
var
Response: TMemoryStream;
mHttp: TclHttp;
Ts: TStringList;
url: String;
begin
url := 'https://www.googleapis.com/youtube/v3/videos?part=snippet&id=' + watch + '&key=' + youtubeapiKey;
Response := TMemoryStream.Create;
mHttp := TclHttp.Create(nil);
Ts := TStringList.Create;
try
mHttp.Get(url, Response);
mHttp.TimeOut := 5000;
Response.Position := 0;
Ts.LoadFromStream(Response, TEncoding.UTF8);
Result := Ts.text;
finally
FreeAndNil(Ts);
FreeAndNil(Response);
FreeAndNil(mHttp);
end;
end;
function TForm1.GetName(val: string): String;
var
json, item, snippet: TJSONObject;
items: TJSONArray;
begin
try
json := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(GetInfo(val)), 0) as TJSONObject;
items := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(json.GetValue('items').ToString), 0) as TJSONArray;
item := items.Get(0) as TJSONObject;
snippet := item.GetValue('snippet') as TJSONObject;
Result := StringReplace(snippet.GetValue('title').ToString, '"', EmptyStr, [rfReplaceAll]);
except
on E: Exception do
Result := '';
end;
end;
procedure TForm1.Logged(text: string);
begin
TThread.Queue(nil,
procedure
begin
Memo1.Lines.Add(text);
end);
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'blog.yakupulutas.com/muzik-indirme-uygulamasi', nil, nil, SW_SHOW);
end;
procedure TForm1.YoutubeUrlClick(Sender: TObject);
var
i1: Integer;
begin
YoutubeUrl.text := Clipboard.AsText;
if Length(YoutubeUrl.text) < 8 then
Exit;
if Pos('youtube', YoutubeUrl.text) > 1 then
begin
i1 := Pos('watch?v=', YoutubeUrl.text) + 8;
wkod := Copy(YoutubeUrl.text, i1, 11);
end
else
begin
i1 := Pos('youtu.be', YoutubeUrl.text) + 9;
wkod := Copy(YoutubeUrl.text, i1, 11);
end;
Logged('watch : ' + wkod);
Caption := GetName(wkod);
Logged('Video Name : ' + Caption);
end;
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

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

unit Ytindir;

interface

uses

Winapi.Windows,

System.SysUtils,

StrUtils,

shellapi,

System.json,

Vcl.Clipbrd,

Vcl.Forms,

Vcl.Dialogs,

Vcl.StdCtrls,

clHttp,

UYoutubeApi,

clHttpHeader,

IdHTTP,

System.Classes,

Vcl.Controls,

Vcl.ExtCtrls, IdTCPClient, IdTCPConnection, IdComponent, IdBaseComponent;

const

youtubeapiKey = 'AIzaSyDMQHKxxxxxxxxxxxxxxxxxxxxxxxx';

type

TForm1 = class(TForm)

YoutubeUrl: TEdit;

IdHTTP1: TIdHTTP;

Memo1: TMemo;

Panel1: TPanel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Download(link: string);

procedure GetMp3(link: String; path: string = '');

function GetName(val: string): String;

procedure YoutubeUrlClick(Sender: TObject);

procedure Logged(text: string);

procedure Panel1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

wkod: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i1: Integer;

wkod: string;

begin

if Pos('youtube', YoutubeUrl.text) > 1 then

begin

i1 := Pos('watch?v=', YoutubeUrl.text) + 8;

wkod := Copy(YoutubeUrl.text, i1, 11);

end

else

begin

i1 := Pos('youtu.be', YoutubeUrl.text) + 9;

wkod := Copy(YoutubeUrl.text, i1, 11);

end;

Download(wkod);

end;

procedure TForm1.Download(link: string);

var

url: String;

begin

url := link;

TThread.CreateAnonymousThread(

procedure

var

yt: TYoutubeMp3Api;

begin

yt := TYoutubeMp3Api.Create;

GetMp3(yt.GetMp3link(url));

end).Start;

end;

procedure TForm1.GetMp3(link, path: string);

var

Resp: TMemoryStream;

MyHttp: TclHttp;

filename: String;

begin

Resp := TMemoryStream.Create;

MyHttp := TclHttp.Create(nil);

try

Logged('İndiriliyor...');

MyHttp.Get(link, Resp);

Logged('İndirildi.');

filename := Ifthen(Trim(Caption) = '', 'UnknownName', Caption);

filename := filename.Replace('"', '');

Resp.Position := 0;

Resp.SaveToFile(ExtractFilePath(Application.ExeName) + '/' + filename + '.mp3');

Logged(ExtractFilePath(Application.ExeName) + '/' + filename + '.mp3');

finally

Resp.Free;

MyHttp.Free;

end; // pdfindir

TThread.Queue(nil,

procedure

begin

ShellExecute(0, 'open', Pwidechar(ExtractFilePath(Application.ExeName) + '/'), nil, nil, SW_SHOWNORMAL);

end);

end;

function GetInfo(watch: String): String;

var

Response: TMemoryStream;

mHttp: TclHttp;

Ts: TStringList;

url: String;

begin

url := 'https://www.googleapis.com/youtube/v3/videos?part=snippet&id=' + watch + '&key=' + youtubeapiKey;

Response := TMemoryStream.Create;

mHttp := TclHttp.Create(nil);

Ts := TStringList.Create;

try

mHttp.Get(url, Response);

mHttp.TimeOut := 5000;

Response.Position := 0;

Ts.LoadFromStream(Response, TEncoding.UTF8);

Result := Ts.text;

finally

FreeAndNil(Ts);

FreeAndNil(Response);

FreeAndNil(mHttp);

end;

function TForm1.GetName(val: string): String;

var

json, item, snippet: TJSONObject;

items: TJSONArray;

begin

try

json := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(GetInfo(val)), 0) as TJSONObject;

items := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(json.GetValue('items').ToString), 0) as TJSONArray;

item := items.Get(0) as TJSONObject;

snippet := item.GetValue('snippet') as TJSONObject;

Result := StringReplace(snippet.GetValue('title').ToString, '"', EmptyStr, [rfReplaceAll]);

except

on E: Exception do

Result := '';

end;

procedure TForm1.Logged(text: string);

begin

TThread.Queue(nil,

procedure

begin

Memo1.Lines.Add(text);

end);

end;

procedure TForm1.Panel1Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', 'blog.yakupulutas.com/muzik-indirme-uygulamasi', nil, nil, SW_SHOW);

end;

procedure TForm1.YoutubeUrlClick(Sender: TObject);

var

i1: Integer;

begin

YoutubeUrl.text := Clipboard.AsText;

if Length(YoutubeUrl.text) < 8 then

Exit;

if Pos('youtube', YoutubeUrl.text) > 1 then

begin

i1 := Pos('watch?v=', YoutubeUrl.text) + 8;

wkod := Copy(YoutubeUrl.text, i1, 11);

end

else

begin

i1 := Pos('youtu.be', YoutubeUrl.text) + 9;

wkod := Copy(YoutubeUrl.text, i1, 11);

end;

Logged('watch : ' + wkod);

Caption := GetName(wkod);

Logged('Video Name : ' + Caption);

end;

end.

TYoutubeMp3Api içeriğini burada paylaşamıyorum, isteyen aşağıda yorumlarda belirtirse apiyi iletirim.

Devamını Oku

Akü Alırken Nelere Dikkat Edilmeli

7 Ocak 201914 Mart 2019 yhackup0

Günümüzde Akıllı telefon alırken özellikle bataryasına dikkat ediyoruz , 3000 mah değerinden 4000 mah değerine kadar ulaşabilen akıllı telefonlardan en yüksek batarya kapasitesine sahip telefonlardan almaya çalışıyoruz sebebi ise şarj etmesen bizi uzun süre götürebilmesi için. Araç aküsü alırken de üzerinde kocaman amper yazılarına bakarak alıyoruz genelde 60Ah veya 72Ah peki size hangisini almalıyız ? […]

Devamını Oku

Windows 10 – Windows Fotoğraf Görüntüleyicisini Aktifleştirme

2 Ocak 201914 Mart 2019 yhackup0

Windows 10 – Windows Fotoğraf Görüntüleyicisini Aktifleştirme Sizde benim gibi Windows 10’la birlikte gelen Fotoğraflar uygulamasına hala alışamadıysanız. Eski windows sürümlerindeki Fotoğraf görüntüleyicisini aşağıdaki adımlarla tekrardan aktifleştirebilirsiniz. 1. Adım Öncelikle masaüstüne sağ tıklayarak Yeni metin belgesi oluşturun ve adını “viewer.reg” olarak kaydedin. 2. Adım Oluşturduğumuz “viewer.reg” dosyasına sağ tıklayarak düzenle deyin ve içerisine aşağıdaki kodları […]

Devamını Oku

Süspansiyon (Amortisör) Gıcırtısı

6 Aralık 201814 Mart 2019 yhackup6

Süspansiyon (Amortisör) Gıcırtısı Yaz aylarında aracımızı sessiz sedasız kullanırken, kış aylarında her tümsekte çukurda araç gıcır gıcır gıcırdıyor ve çok sinir bozucu bir şekilde Aşağıdaki videoda da bir örneğini görebilirsiniz. diğer arkadaşlarıma da sorduğumda herkesin aynı dertten müzdarip olduğunu gördüm ancak bir çözümü olmalıydı çok can sıkıcı bir ses duyduğunuz gibi. Ancak bu sesin maliyetsiz […]

Devamını Oku

Fiat Linea Ön Sisleri Aktifleştirme

6 Kasım 201818 Mart 2019 yhackup43

Fiat Linea Ön Sisleri Aktifleştirme Evet Arkadaşlar Linea’mızda boşluk doldurmaca oyununumuza kaldığımız yerden devam Bildiğiniz üzere aracımızda arka sis tuşu var ancak ön sis tuşu yok, aracı satın alırken diyor ki havalar sis olduğu zaman sadece arkalar yeter, öne ne gerek var canım ama yok basarsan parayı önlere de takarız… Bizde bu boşlukları tespit edip […]

Devamını Oku