- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
function TForm1.getyoutube(ss: string): string;
var
//Вылавливаем ссылку
i:integer;
pos:integer;
length1:integer;
ssylka:string;
pos_str:string;
//Удаляем ненужные символы
pos_str2:string;
pos2,pos23:integer;
ssc:char;
begin
//Вылавливаем ссылку если это ютубовская ссылка
if isitok('youtube.com',ss)=true then
begin
protect;
memo1.lines.Text:=idhttp1.Get(ss);
for i:=0 to memo1.Lines.Count do
begin
pos_str:=' img.src = '+#39;
pos:=AnsiPos(pos_str,memo1.Lines.Strings[i]);
if pos=1 then
begin
length1:=length(memo1.Lines.Strings[i])-length(pos_str)-2;
ssylka:=copy(memo1.Lines.Strings[i],pos+length(pos_str),length1);
end;
end;
ssc:=#160;
pos_str:='youtube.com';
pos:=AnsiPos(pos_str,ssylka);
delete(ssylka,pos+length(pos_str),1);
delete(ssylka,6,1);
delete(ssylka,7,1);
pos_str2:='youtube.com/';
pos2:=AnsiPos(pos_str,ssylka);
pos2:=pos2+length(pos_str2);
pos_str2:='?ip';
pos23:=AnsiPos(pos_str,ssylka);
delete(ssylka,pos2,pos2-pos23);
insert('videoplayback',ssylka,pos2);
result:=ssylka;
end
else
begin
protectoff;
form2.show;
form1.enabled:=false;
end;
protectoff;
end;
Follow us!