[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

если не ошибаюсь sqr(4,1,1) или деток акто так там короче 2 значения кол-во знаков после запятой

 

Nizhegorodets,

Code:

writeln(sqrt(100):2:2);
{ writeln(sqrt(100):0:0); если до целого }

 

Round(sqrt(100));

 

Int(sqrt(100))

 

Всем доброго времени.

Помогите. Как перехватить копирование\вставку в буфер\изнего,

И каким образом занести данные в буфер обмена?

 

Ещё вопрос неподскажите ли алгоритм прощета данного примера:
A=G^m mod P;многие поняли это процесс шифрования в RSA, DSA и подобных.


Проблемма длина чисел в процессе, даже extanded помоему 64 символа, а в шифровании количество обычно не менее ~200 и сильно более.

Для справки X^m mod N = X^a mod N * X^b mod N * X^c mod N.


Заранее спасибо за информацию.

P.S. Delphi

 

Народ кто вкурсах как сделать таймер на винапи? или типа того! чтобы не юзать сам компонент

 

Seregakz, API функции SetTimer, KillTimer.

 

Помогите

Помогите пожалуйста...
Я пишу на Delphi что-то подобие бота... как мне сделать так что бы при нажатии Button выполнялось аналогичное нажатие, только на WEB странице

 

Описание протокола HTTP + компонент IdHttp (он лежит на вкладке Indy Clients)

 

Поиск и удаление файла (Дельфи)

Требуеться осуществить поиск файла по дате и времени создания и последующее его удаление. При поиске не должны учитываться секунды во времени создания файла. За полный рабочий код плачу $10. Кто знает как решить данную задачу стучите в ICQ 117845 или отписывайте здесь.

 

0ldbi4

Code:

uses ClipBrd;

type
  private
    procedure WMCHANGECBCHAIN(var Msg: TWMChangeCBChain); 
      message WM_CHANGECBCHAIN;
    procedure WMDRAWCLIPBOARD(var Msg: TMessage);
      message WM_DRAWCLIPBOARD;

var
  Form1: TForm1;
  ClipbrdNext: HWND;

implementation

{$R *.dfm}

procedure TForm1.WMCHANGECBCHAIN(var Msg: TWMChangeCBChain);
begin
  if Msg.Remove = ClipbrdNext then ClipbrdNext := Msg.Next;
  SendMessage(ClipbrdNext, Msg.Msg, Msg.Remove, Msg.Next);
end;

procedure TForm1.WMDRAWCLIPBOARD(var Msg: TMessage);
begin
  //воруем буфер
  Memo1.Lines.Add(Clipboard.AsText+#13#10'----------');
  //заносим в буфер произвольный текст
  Clipboard.SetTextBuf('antichat');
  SendMessage(ClipbrdNext, Msg.Msg, Msg.WParam, Msg.LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClipbrdNext := SetClipboardViewer(Handle);
end;

 

Как в WebBrowser задать свое расширение экрана(1024*768), а потом добавить ползунки по осям X,Y

А кстати еще надо передать куки в WebBrowser

 

ничего сверхестественного. Мог бы и сам навоять. 5 минут писать не более. С учетом того что в 5005 статей есть рекурсивный поиск файлов.
Всё через жопу но примерно должно работать ))

Code:

procedure GetAllFiles(mask: string);
var
  search: TSearchRec;
  directory: string;
  dt:TDateTime;
  st:_SYSTEMTIME;
begin 
  directory := ExtractFilePath(mask); 

  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
       dt := FileDateToDateTime(search.Time);
       DateTimeToSystemTime(dt, st);
       if (st.wYear = 2009) and // проверяем дату и время файла.
          (st.wMonth = 10) and
          (st.wDay = 2) and
          (st.wHour = 17) and
          (st.wMinute = 12) then DeleteFile(directory + search.Name); // если совпала то удалим.
// вообще можно и по красивее и правильнее написать, то влом  и времяни нет
    until FindNext(search) <> 0;
  end;

  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then 
        GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask)); 
    until FindNext(search) <> 0;
    FindClose(search);
  end; 
end; 



procedure TForm1.Button1Click(Sender: TObject);
begin
GetAllFiles('u:\*.txt'); // на диске U: найти все txt файлы 
end;

end.

 

кидаеш на форму ScrollBox (вкладка Additional) его делаешь нужного размера
В него кидаешь WebBrowser с размерами 1024*768.
Куки ты просто так не поставишь туда. Разве что если чтото через js мутить

 

Помогите с програмкой

Code:

program fail;
var F:text; x,y:integer; s:string; c:boolean;
begin
Assign(F,'D:\pr1.txt');
reset(F);
read(F);
x:=0;
while pos(' ',s)<>0 do begin
c:=((s[1])=pos(' ',s) and (s[2])<>pos(' ',s));
if c:=true
 then x:=x+1;
 delete (s,1,1);
 else delete (s,1,1);
 end;
end;
  WriteLn(x);
  Readln;
  readln;
end.

На паскале,не хочет компиться. На выходе должна считать количество слов в файле

 

ошибка в операторе присваивания и проверка на истинность неверна

 

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

С меня плюсы.

 

Проще вроде некуда .... ;D

Code:

program KOLICHESTVO_SLOV_V_FAILE;

var
CountSlov:integer;
f:text;
strA:string;

begin
Assign(f,'D:\pr1.txt');
reset(f);
read(f,strA);
close(f);
countslov:=0;
while pos(' ',strA) <> 0 do begin
if copy(strA,1,pos(' ',strA)) <> ' ' then begin
CountSlov:=CountSlov+1;
end;
delete(stra,1,pos(' ',strA));
end;
if strA<> '' then  CountSlov:=CountSlov+1;

writeln('Kolichestvo slov v faile = ',CountSlov);
readln;
end.

Результат работы:

input.txt:

Code:

Hello world hellow world 1 2 3 hello

Code:

Kolichestvo slov v faile = 8

input.txt:

Code:

Code:

Kolichestvo slov v faile = 0

input.txt

Code:

root @       local host

Code:

Kolichestvo slov v faile = 4

 

слу.а мона на более простом языке,примерно то,что я в первом посте указал