1. Список говнокодов пользователя KapoeD

    Всего: 1

  2. Pascal / Говнокод #6617

    +103

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 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;

    Очень старый способ скачать видео с YouTube

    KapoeD, 10 Мая 2011

    Комментарии (43)