rareMax

Туда бы еще книгу написанную создателем этого форума, было бы вообще супер! а Ярослав ее дописал?

Есть что-то по синтаксису из книг? смотрел книгу Марко - все уже заезженно. Единственное что нового узнал - это перезагрузка операторов(интересная вещь кстати). Может кто в книгах встречал о атрибутах в делфи? хочу более подробно познакомиться с ними. Пытался гуглить - так переводы одной и той же заметки. И не понятно - удобно ли использовать атрибуты.

ой успокойтесь вы. Простых смертных трогать никто не будет. В Solid Works, например, знают приблизительное кол-во пользователей, которые пользуются пиратской версией. На обычных пользователей они не обращают внимание. А вот если в компании будут пиратки - тогда уже делают какие-то телодвижения. Так же думаю и в абракадабре - если у меня, к примеру, пиратка - я сомневаюсь, что то будут принимать по отношению ко мне. Но если бы я работал в какой то компании - тогда думаю они бы могли и предъявить за нелицензионный софт.

Если релиз-версия не будет ставится - попробуйте отредактировать версию в суффиксе(Lib Suffix)

@@@ М-Мечтатель

Насчет типа ссл спасибо, буду с пк проверю. Библиотеки лежат в папке, иначе бы другая ошибка была. Ид приложения специально поставлен неправильно. Ну а в целом спасибо за варианты моих ошибок

http://www.webdelphi.ru/2014/07/delphi-avtorizaciya-po-oauth-2-0-v-dropbox-svoimi-silami/ Возможно поможет

в XE8 TWebBrowser теперь официально поддерживает все платформы.

Я либо что то не понял - либо используйте TScrollBox

Плоховато знаю особенности интернет протоколов. Необходимо с помощью TidHTTP открыть следующий URL: https://oauth.vk.com/authorize?client_id=491792444&scope=offline&redirect_uri=https://oauth.vk.com/blank.html&display=mobile&v=5.28&response_type=token Вылетает ошибка: Код, с помощью которого подключаюсь: unit vkAPI.Core.Requests; interface uses System.Classes; Type TRequestMng = Class(TComponent) Private Const VK_MIN_INTERVAL = 1000 / 3 + 1; (* Параметры могут передаваться как методом GET, так и POST. Если вы будете передавать большие данные (больше 2 килобайт), то следует использовать метод POST. *) VK_MAX_GET_LENTHG = 2000; private fisSSL: Boolean; fLastAPIusage: TDateTime; protected function BetwenMS(Now, Old: TDateTime): integer; public constructor Create(AOwner: TComponent); override; Function Get(Const URL: String): String; published property IsSSL: Boolean read fisSSL write fisSSL default False; End; implementation uses vkAPI.Core.Utils, idHTTP, IdSSLOpenSSL, System.SysUtils; { TRequestMng } function TRequestMng.BetwenMS(Now, Old: TDateTime): integer; begin Result := Round((Now - Old) * 24 * 60 * 60 * 1000); end; constructor TRequestMng.Create(AOwner: TComponent); begin inherited Create(AOwner); fisSSL := False; end; function TRequestMng.Get(const URL: String): String; var fHTTP: TIdHTTP; fSSL: TIdSSLIOHandlerSocketOpenSSL; begin fHTTP := TIdHTTP.Create; // if IsSSL then begin fSSL := TIdSSLIOHandlerSocketOpenSSL.Create(fHTTP); fHTTP.IOHandler := fSSL; fHTTP.AllowCookies := True; fHTTP.HandleRedirects := True; end; try if URL.Length > VK_MAX_GET_LENTHG then raise Exception.Create ('Если вы будете передавать большие данные (больше 2 килобайт), то следует использовать метод POST. '); if BetwenMS(Now, fLastAPIusage) < VK_MIN_INTERVAL then begin Sleep(BetwenMS(Now, fLastAPIusage)); end; Result := fHTTP.Get(URL); fLastAPIusage := Now; finally // if IsSSL then FreeAndNil(fSSL); FreeAndNil(fHTTP); end; end; end. Код программы: program Project4; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, vkAPI.Core.Requests in 'vkApi\vkAPI.Core.Requests.pas'; Var VK: vkAPI.Core.Requests.TRequestMng; begin VK := TRequestMng.Create(nil); try { TODO -oUser -cConsole Main : Insert code here } (VK.Get('https://oauth.vk.com/authorize?client_id=491792444&scope=offline' + '&redirect_uri=https://oauth.vk.com/blank.html&display=mobile&' + 'v=5.28&response_type=token')); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; VK.Free; end.

В диспетчере задач смотри

Одно и тоже - подключайтесь в отдельном потоке.

Я бы не надеялся на то, что со старту будет поддержка хе7. Но думаю можно будет руками допилить.

наканецтта! Ярослав, это будет бесплатный класс? плииз скажи что да

1. вместо self - form1, или другой родитель, или nil По одной? ок. для этого: 1: You3d:Array of TRectangle3D; - переносишь в приват раздел твоей формы(form1=class(tForm) private You3d:Array of TRectangle3D). 2. SetLength(You3d, 0); - в конструкторе инициализируешь массив (вот тут могу врать - возможно это необязательно) 3. Procedure DrawYou3d; - создаешь в Public разделе класса(того же класса где и писал You3d:Array of TRectangle3D) в реализации метода пишешь: Procedure TYouClass.DrawYou3d; Begin SetLength(You3d, High(You3d)+1); You3d[High(You3d)]:=TRectangle3D.Create(self); // вот тут You3d[High(You3d)].Parent:=Form1; End; по желанию(ну или обязательно, тоже не помню) можешь в параметрах процедуры передать позицию фигуры Procedure DrawYou3d(Const X,Y:Single);/\

Как вариант: Procedure DrawYou3d(Const Count:Integer); var You3d:Array of TYou3d; i:integer; Begin SetLength(You3d, Count); for i:=Low(You3d) to High(You3d) do BEGIN You3d:=TYou3d.Create(Self); You3d.Parent:=YouForm; END End; TYou3d - класс ваших 3д фигур YouForm - родитель("на ком" будут лежать они) (код писал без реальной проверки в студии - если не работает - скажите)

эмм а как же этот?

Что тут вообще происходит? Где твой класс с потоком? Signin:= TSignin(false); это что такое?

Попробуй реализовать отправку внутри нового потока

Анимация есть - смотрите темы на форуме с компонентом TTabControl. Ну а насчет лагов - это уже другой вопрос

Xcode и Visual Studio - дают в бесплатное пользование. ой я сказал бесплатная? вот только что бы работать в эти средах программирования - нужно купить OS Windows для Visual Studio или вообще устройство с i(Mac)OS для xCode|SWIFT. Я это к чему говорю - Microsoft и Apple выпускают бесплатные программы для популяризации других их товаров. А вот у абракадабры нет таковых - и приходится брать деньги с RAD Studio(но дорого - тут согласен)

Салют. Нужна помощь. Как можно редактировать текст прям в сетке(TStringGrid)? Пробовал воспользоваться событием CreateCustomEditor, но как то не взлетело. Делал так: SG: TStringGrid; sb_Factor: TSpinBox; sb_Experts: TSpinBox; //// procedure TForm1.SGCreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); begin Control:=sb_Experts; end;

Добрый день. В моем коде нужно использовать таймер. При этом этот код должен работать как на VCL так и на FMX. Есть ли директива компилятора, что бы можно было сделать нечто похожее: или же придется в конечном проекте самому указывать такую директиву? То есть мне нужна директива для определения в каком проекте (VCL or FMX) будет выполняться код. Спасибо.