OnePeople

У меня что то не воспроизводится этот баг((( Исправим, косяк bass.dll Так он же есть, там где отображается название выбранной категории это поле поиска)

И точно, зачем то браузеру нужны были права администратора) Перезалил, с небольшими исправлениями и увеличенной областью нажатия на прогрессы) Оставил ListBox, но добавил ручной скролл колёсика мыши с небольшой анимацией) Как такое решение с началом закачки файла? Andrey Efimov, спасибо за отзыв;)

Спасибо за отзыв и что забросили на форум! Просто файл у меня не заливается на форум((( Очень полезные мысли и заметки, поправим))

Перезалил

Программа для скачивания минусовок DX-minus b259.rar

На процедуре декомпрессии gzip просто замирает поток и всё, причем в debug она выполняется как положено.

Delphi 10.2.1 Программа отлично работает в debug, и не работает в Release, не работает ZLibExGZ.pas, причем раньше с ним проблем не было, что на это влияет?

@kami, под задачу сделать быстро, легко и не изобретая велосипед, это именно самое правильное решение!

Во первых зачем что то изобретать если уже есть, а если уж так надо тогда самое быстрое решение, да скорее всего и самое правильное App Tethering

Так может все дело в том что вам нужна высота клиентской области? Form1.ClientHeight

Файл уже есть и создан не мной, решил вопрос сменой кодировки списка файлов

Да как у строки менять кодировку?

В имени файла есть символ × с ним не находит, как побороть?

Спасибо попробую;

Может кто с питона на делфи переделать это

Рано обрадовался один раз прокатило и всё, (Как так??) Кто знает в чем суть шифрования RSASSA-PKCS1-V1_5-SIGN ? Я беру Затем идет шифрование как я понимаю нужно получить SHA256 ключа, с помощью этого же ключа, а затем с помощью полученного ключа уже зашифровать методом RSA то что выше? Или не так? The RSA private key is then passed to the RSA signing function, which also takes the hash type, SHA-256, and the JWS Signing Input as inputs. The result of the digital signature is an octet sequence, which represents a big-endian integer. In this example, it is: Вот как это понять?

Спасибо нашел нужные библиотеки в другом месте, наконец-то хотя бы авторизировался)))

Итак, зарегистрировал свое приложение, читаю пишут для этих API лучше использовать ауниентификацию через service account, ладно создал. Получил ключ в формате JSON Иии, что теперь понять не могу, зачем такой огород из способов аунтефикации? Помогите разобраться!!! Понял нужен JWT, как сделать RSA256 шифрование?

Перерыв интернет так толкого ничего и не нашел пришлось читать майкрософта, может кому пригодиться: Кол-во аудиодорожек и применение:

Есть код определяющий количество аудиодорожек в видео procedure TfGeneral.GetSoundStreamsCount; var EnumFilters: IEnumFilters; {The Variables needed for Filter Operations} BaseFilter: IBaseFilter; FilterInfo: TFilterInfo; Klasse:TGuid; begin fVideo.lbAudioStreams.Clear; glb_SoundStreams:=0; {plain } (pFilterGraph as IFilterGraph).EnumFilters(EnumFilters); {Enumerate Filters} While (EnumFilters.Next(1, BaseFilter, nil)=S_OK) do begin BaseFilter.QueryFilterInfo(FilterInfo); BaseFilter.GetClassID(Klasse); if IsEqualGUID(Klasse,CLSID_DSoundRender) then begin glb_SoundStreams:=glb_SoundStreams+1; {counting} AddMenuItem(fVideo.lbAudioStreams,'Audio '+IntToStr(glb_SoundStreams),'','',nil,true); end; end; end; И есть файл в нем две дорожки Одна AC3, вторая DTS. По этому коду находит только DTS, в каком интерфейсе искать вторую?

Нет конечно, просто думал вы через них работали

Ну если на запуске ложиться значит проблема в коде в секциях cоздания и показа формы OnCreate или OnShow И TetheringManager, AppProfile попробуйте задать им свойство Enabled=false, а в OnShow сделать их true

Я просто когда у меня такое было, в OnApplyStyleLookup приравнивал к значению текста через StyleData к объекту.

Вот видео в конце все видно, то нормально все, то вот такое проявление белого цвета, не могу понять от чего? Вот код анимации procedure TfGeneral.AnimateLay(TekLay,NewLay:TLayout;lb,fobj:IControl;dtr:Boolean;textdstr,textitle,cat:String); var Hpos,Tpos:Single; begin TekControlUpr:=fobj; TekControlLay:=NewLay; TekControlItemCat:=cat; perehod:=true; BlurTransitionEffect1.Parent:=lOsn; BlurTransitionEffect1.Enabled:=true; BlurTransitionEffect1.Progress:=0; Hpos:= lBottom.Position.Y; Tpos:= lTop.Position.Y; TAnimator.AnimateFloat(lBottom,'Position.Y',Hpos+120,0.35, TAnimationType.Out, TInterpolationType.Linear); TAnimator.AnimateFloat(lTop,'Position.Y',TPos-150,0.35, TAnimationType.Out, TInterpolationType.Linear); TAnimator.AnimateFloatWait(BlurTransitionEffect1,'Progress',100,0.35, TAnimationType.Out, TInterpolationType.Linear); tTitle.Text:=textitle; if dtr=true then begin tAtrib.Text:=textdstr; tAtrib.Visible:=true; end else begin tAtrib.Text:=''; tAtrib.Visible:=false; end; TekLay.Visible:=false; NewLay.Visible:=true; NewLay.BringToFront; if (NewLay=lVideo) or (NewLay=lGames) or ((NewLay=lFileChange) and (FileExists(sViewBtn1.Text))) then AddListPotok.Resume; if NewLay=lMusic then begin rMusicLeft.Position.X:= -rMusicLeft.Width; rMusicRight.Position.X:= rMusicRight.Width+rMusicLeft.Width; lbTekPlaylist.ApplyStyleLookup; lMiniMusicPlayer.Visible:=false; lMiniMusicPlayer.Opacity:=0; end else begin if MusicMode=Playing then begin lMiniMusicPlayer.Visible:=true; TAnimator.AnimateFloat(lMiniMusicPlayer,'Opacity',1,0.35); end; end; TAnimator.AnimateFloat(lBottom,'Position.Y',Hpos,0.35, TAnimationType.Out, TInterpolationType.Linear); TAnimator.AnimateFloat(lTop,'Position.Y',TPos,0.35, TAnimationType.Out, TInterpolationType.Linear); TAnimator.AnimateFloatWait(BlurTransitionEffect1,'Progress',0,0.35, TAnimationType.Out, TInterpolationType.Linear);BlurTransitionEffect1.Progress:=0; BlurTransitionEffect1.Enabled:=false; fobj.SetFocus; TekControlBox:=lb; ShowLay:=NewLay; if AllControlItemIndex>0 then begin TekControlItemIndex:=0; PredControlItemIndex:=0; ChangeControlItem(VNaprControlItemIndex,false,ColumnControlItemIndex); end; perehod:=false; end; pyWorld 2016-05-22 16-15-45-302.rar

Парни может хотя бы кто скажет, procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle) должна работать на андроид?