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

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

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

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

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

593

Опции темы

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

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

#5921

28.03.2010, 23:57

heretic1990

Постоянный

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

Сообщений: 472

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

Репутация: 444

090808, большое спасибо !!!! помогло закрыть прогу!!!
всем спасибо вопрос исчерпан))

#5922

29.03.2010, 00:10

~~Life7~~

Banned

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

Сообщений: 256

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

Репутация: 105

... интересненькая задачка))) я тут набросал по быстрому... щас еще подумаю и подредактирую.... буду рад если кто поможет доделать
да и исправьте ошибки... а то я не силен в этом)))

Цитата:

PHP код:
program Multik;
var N,K,zaec,volk,d,i:integer;
label 1;
BEGIN
read(N,K);
i:=0;
volk:=0;
zaec:=k; //ступенька зайца
d:=int(n/2); // максимальное количество шагов возможных на лестнице
for l=1 to d do //цикл перебора шагов
volk:=volk+2; //волк шагает через 2 ступеньки
zaec:=zaec+1; //заяц через одну
if zaec=volk then write(i) and goto 1; // если совпали то выводим и и заканчиваем программу
next l
write(i); //если не совпали то просто выводим 0 и заканчиваем программу
1:END.

#5923

29.03.2010, 09:23

TrueBit

Познающий

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

Сообщений: 77

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

Репутация: 29

Начал работать с winapi на delphi и возник вопрос:
Как сделать так, что бы окно, созданное CreateWindowEx, было по центру экрана?

#5924

29.03.2010, 10:18

s0l_ir0n

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

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

Сообщений: 237

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

Репутация: 314

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

Цитата:

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

PHP код:


		
			
function CenterWindow(Wnd:HWND):boolean;

var

 R:TRect;

 X,Y,W,H:integer;

begin  

  GetWindowRect(Wnd, R);

  W:=GetSystemMetrics(SM_CXSCREEN);

  H:=GetSystemMetrics(SM_CYSCREEN);

  X := (W div 2) - ((R.Right - R.Left) div 2);

  Y := (H div 2) - ((R.Bottom - R.Top) div 2);

  result:=SetWindowPos(Wnd, 0, X, Y, 0, 0, SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE)

end;

#5925

29.03.2010, 10:41

EndLeSSDre@M

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

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

Сообщений: 278

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

Репутация: 259

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

Цитата:

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

Life7 я не понял, это че такое??? тупое набивание постов??? на сколько я помню это был мой пост, и слова точно такие же!

#5926

29.03.2010, 13:43

mailbrush

Познавший АНТИЧАТ

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

Сообщений: 1,996

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

Репутация: 2731

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

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

var

  WSAData1: WSAData;

  my_sock: TSocket;

  dest_addr: sockaddr_in;

  buf: string;

  res: Array [0..1024] of Char;

  reslen: integer;

begin

WSAStartup($101,WSAData1);

my_sock := socket(AF_INET, SOCK_STREAM, 0);

dest_addr.sin_family := AF_INET;

dest_addr.sin_port:=htons(80);

dest_addr.sin_addr.S_addr := inet_addr('192.0.32.10');

connect(my_sock, dest_addr, SizeOf(dest_addr));

buf := 'GET / HTTP/1.1'+#10#13+'Host: example.com'+#10#13;

send(my_sock, buf, sizeof(buf), 0);



recv(my_sock, res, 128, 0); //здесь зависает

ShowMessage(res);

end;

Почему программа на строке

Код:

recv(my_sock, res, 128, 0);

зависает? Что я делаю неправильно в этом WinSock'e?

#5927

29.03.2010, 13:46

wolmer

Постоянный

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

Сообщений: 395

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

Репутация: 229

Цитата:

Что я делаю неправильно в этом WinSock'e?

в твоем случае надо в отдельном потоке работать с winsock (CreateThread)

slesh, в точку

(или же можно проделать copymemory (в массив вида char))

Последний раз редактировалось wolmer; 29.03.2010 в 13:54..

#5928

29.03.2010, 13:52

slesh

Reservists Of Antichat - Level 6

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

Сообщений: 1,985

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

Репутация: 3349

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

buf := 'GET / HTTP/1.1'+#10#13+'Host: example.com'+#10#13;
send(my_sock, buf, sizeof(buf), 0);

заменяй на
buf := 'GET / HTTP/1.1'+#13#10+'Host: example.com'+#13#10#13#10;
send(my_sock, buf[1], length(buf), 0);

#5929

29.03.2010, 15:17

mailbrush

Познавший АНТИЧАТ

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

Сообщений: 1,996

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

Репутация: 2731

Спасибо. Теперь в этом проблема:

Код:

r:=1;

while(r > 0) do
begin
r := recv(my_sock, res, 128, 0);
end;

Опять зацикливается...

wolmer, работать в отдельном потоке вовсе не обязательно...

#5930

29.03.2010, 15:43

stepashka_

Познавший АНТИЧАТ

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

Сообщений: 1,077

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

Репутация: 265

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

как сделать что бы после
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1;
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;

подскажите как сделать что бы после этой процедуры через определённое время вылетало ShowMessage с моим текстом...