k245 wrote:
А разве ты на этом форуме не для этого сидишь?
Нет. На этом форуме я чисто из спортивного интереса. Да и на других не готов "получить задачу" и отрабатывать ее для кого-то за спасибо...
277 2020-11-22 20:20:03
Re: Exe file running (11 replies, posted in General)
..he is working.. and does not have time to be on the forum..
278 2020-11-20 17:45:32
Re: Получить текст из элемента web страницы (12 replies, posted in Russian)
Как я вам должен объяснить то, во что сам въезжал (неделями.. месяцами..)?
279 2020-11-20 16:18:23
Re: Получить текст из элемента web страницы (12 replies, posted in Russian)
Если бы его можно было "черкнуть" я бы так и написал. Но под "писать код" я подразумевал то, что за это нужно специально засесть, т.е. скачать движок, накатать фетч, рапарсить страницу, столкнуться с еще какой-нибудь проблемой "нычки пряников" от гугла, решить ее (если получится), выдать код...
280 2020-11-20 15:57:55
Re: Получить текст из элемента web страницы (12 replies, posted in Russian)
Написать код))
281 2020-11-20 15:51:00
Re: Получить текст из элемента web страницы (12 replies, posted in Russian)
indigen wrote:
Что я делаю не так?
Используете IE. Не поймаете вы ничего им, т.к. google его чмырит и шифрует в результате все классы и теги (см. полученный исходник страницы, там и близко не будет "tlid-results-container").
Используйте нормальный движок типа Selenium.WebDriver.
282 2020-11-20 15:23:09
Re: Получить текст из элемента web страницы (12 replies, posted in Russian)
document.querySelector('.tlid-results-container').innerText
283 2020-11-16 11:58:22
Re: Проверить присутствие раздела в реестре (3 replies, posted in Russian)
reg.Free;
284 2020-11-14 21:04:18
Re: Что реализовать в первую очередь? (396 replies, posted in Russian)
var T:TTimer;
procedure OnAfterShow(Sender: TObject);
begin
TTimer(Sender).Enabled := false;
ShowMessage('I`m OnAfterShow');
end;
procedure Form1_OnShow(Sender: TObject; Action: string);
begin
ShowMessage('I`m OnShow');
with TTimer.Create(Application) do
begin
Interval := 1;
OnTimer := @OnAfterShow;
end;
end;
begin
end.285 2020-11-09 14:59:48
Re: Можно ли подключить проект к серверу Microsoft sql? (1 replies, posted in Russian)
"Подключить проект" - нет.
"Связаться с MsSQL для обмена данными" - да (юзайте ADODB через OLE)
286 2020-11-09 14:53:49
Re: Подскажите, что не так с оформлением Grid (4 replies, posted in Russian)
var i:integer;
...
with Form1.TableGrid1 do
begin
for i:=0 to Columns.Count-1 do
begin
Columns[i].Options :=
Columns[i].Options +
coFixedSize;
end;
end;287 2020-10-29 18:30:11
Re: Подскажите как работать с MessageBox (5 replies, posted in Russian)
ID := MessageBox('Сообщение', 'Заголовок', MB_YESNO+MB_ICONINFORMATION);
if ID = IDYES then
ShowMessage('Вы нажали ДА')
else if
ID = IDNO then
showmessage('NO');288 2020-10-14 10:50:23
Re: Ограничить время выполнения (1 replies, posted in Russian)
Сюда не заглядывали?
289 2020-10-12 05:19:19
Re: Password. (4 replies, posted in General)
Why do you need someone's password? If you "forgot", you can create a new one. Right?
290 2020-09-19 05:09:46
Re: Problem With SSL When Using HTTPGetFile Function (18 replies, posted in Script)
OLE + WinHttpRequest
291 2020-09-13 11:09:29
Re: Скидка на программу в связи с возросшим курсом доллара (48 replies, posted in Russian)
Nilaus wrote:
Пора уже вводить скидку 75% с таким курсом доллара и вообще странно что привязка к доллару, у других цена в рублях
Интересно, а кто ещё ввел у себя скидку 75% в связи с волантильностью курса валют?
292 2020-08-21 05:55:59
Re: How to Use Custom Types (2 replies, posted in Script)
The program uses the fastscript script engine.
...- No typedeclarations (records, classes) in the script; no records, no pointers, no sets(but you can use 'IN' operator - "a in ['a'..'c','d']"), no shortstrings, no GOTO statement...
293 2020-07-30 15:08:07
Re: Adding new line in Memo (10 replies, posted in General)
Эта новость касается только рассылки через личный кабинет (т.е. - API здесь ни при чем).
294 2020-07-30 11:36:30
Re: Adding new line in Memo (10 replies, posted in General)
sibprogsistem wrote:
это проблема на стороне вашего сервиса SMS сообщений...
... Form1.Memo1.Text:=Form1.Memo1.Text + '/ r / n '; ...
Это не "проблема сервиса", а пробел в знаниях стандартов. У каждого адекватного смс-сервиса имеется прием кодированной строки. Если запрос типа "GET" и ContentType = x-www-form-urlencoded, значит перенос должен выглядеть как %0D%0A, если запрос "POST", то как правило применяется json-формат и текст Memo-поля передается в тело запроса "как есть"...
295 2020-07-25 20:50:16
Re: Первой открывается не главная форма (3 replies, posted in Russian)
А если Visible в False установить...
296 2020-07-22 12:25:44
Re: закрепить панель (1 replies, posted in Russian)
Можно. Обходить циклом какой-то признак очередности (например TabOrder) и заново перестраивать.
297 2020-07-22 11:52:23
Re: How use idhttp body support unicode ,UTF-8 Post Request (3 replies, posted in Script)
function EncodeURI(s:string):string;
var SE:variant;
begin
SE := CreateOleObject('ScriptControl');
SE.Language := 'JScript';
SE.Reset;
result := SE.Run('encodeURI',s);
SE:=0;
end;message=EncodeURI('Привет мир!');298 2020-07-20 09:47:26
Re: градиент (5 replies, posted in Russian)
Этот скрипт процессорного мяса жрет больше, чем растянутая однопиксельная картинка с градиентом - памяти.
299 2020-07-16 21:16:35
Re: WindowsState (5 replies, posted in Russian)
При установленных BorderStyle:=bsSizeable и WindowsState:=wsMaximized - да, все работает.
300 2020-07-16 19:17:51
Re: градиент (5 replies, posted in Russian)
На костылях:
var T:TTimer;
procedure ShowGradient(Sender: TObject);
var i,w:integer;
c:byte;
begin
T.Enabled:=false;
Form1.OnResize := @ShowGradient;
Form1.OnPaint := @ShowGradient;
w := Form1.Width;
for i:=0 to Form1.Height-1 do
begin
c:= round(i/Form1.Height*255);
Form1.Canvas.Pen.Color:=rgb(c,c,c);
Form1.Canvas.LineTo(0,i);
Form1.Canvas.LineTo(w,i);
Form1.Canvas.LineTo(w,i+1);
Form1.Canvas.LineTo(0,i+1);
end;
end;
begin
Form1.DoubleBuffered:=true;
T:=TTimer.Create(Application);
T.Interval:=10;
T.OnTimer:=@ShowGradient;
T.Enabled:=true;
end.