Helltar, fpc.

Kalter, ставь Lazarus, и радуйся.

Всем привет! У меня вопрос таков - " как отправить данные на сервер с помощью библиотеки lib_binsock ?, если возможно пример...!" Спасибо

Dualzzmu, MP?
- http://forum.boolean.name/showthread.php?t=8960
Там же все описано.

И на будущие:
- http://annimon.com/forum/id2833-0

Helltar, Дело в том, что как ни крути не отправляется функцией "flush",отправку делаю так-"s1:=binsock.write_bin('1');
s1:=binsock.flush; " ничего не происходит, не известно почему

Не записывается в новый каталог, в чём проблема?

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program test;
2.  const pathf='c:\users\kalter\desktop\fast.txt';
3.        pathk='c:\users\kalter\desktop\test';
4.  var f:text;
5.      str:string;
6. begin assign(f,pathf);
7.  reset(f);
8.  read(f,str);
9.  chdir(pathk);
10.  rewrite(f);
11.  write(f,str);
12.  close(f) end.

Kalter, явно виден косяк, но мне надо почитать еще разок паскаль.

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. Program Genetic;
2. Var
3.    Population:Array[1..10,1..3] Of Integer;
4.    I:Integer;
5.    BuffParent1:Array[1..3] of Integer;
6.    BuffParent2:Array[1..3] of Integer;
7.    S:String;
8.    Numberofgeneration:Integer;
9.    Buffermembers:Array[1..2] Of Integer;
10.    Isfound:Boolean;
11.    Whotisneeded:Integer;{Итак, У Нас Популяция Из 10 Особей С 3 Генами. Договоримся Что Они Принимают Значение От 1 До 4. Нам Нужна Особь У Которой Все Значения Равны 4, "Суперособь"}
12.  
13. Function Randomgennum(Maxvalue:Integer):Integer;
14.    Begin
15.       Randomize;
16.       Randomgennum:=Random(Maxvalue)+1;
17.    End;
18.  
19. Function Tournament(Member1,Member2:Integer):Integer;
20.    Begin
21.       if (Population[Member1][1]+Population[Member1][2]+Population[Member1][3])>(Population[Member2][1]+Population[Member2][2]+Population[Member2][3]) then
22.       begin
23.         Tournament:=Member1;
24.       end;
25.       if (Population[Member1][1]+Population[Member1][2]+Population[Member1][3])<(Population[Member2][1]+Population[Member2][2]+Population[Member2][3]) then
26.         Tournament:=Member2;
27.    End;
28.  
29.  
30. Procedure Check;
31.    Begin
32.  
33.       for I:=1 to 10 Do
34.       Begin
35.          if (Population[I][1]+Population[I][2]+Population[I][3])>Whotisneeded then
36.          begin
37.             Str(Numberofgeneration,S);
38.             writeLn('Found at ' + S +' generation.');
39.             halt;
40.          end;
41.  
42.  
43.  
44.       End;
45.    End;
46.  
47. Procedure Newmembers(Parent1,Parent2:Integer);
48.    Var
49.       Crossoverpoint:Integer;
50.  
51.    Begin
52.       Crossoverpoint:=Randomgennum(2);
53.  
54.  
55.         BuffParent1[1]:=Population[Parent1][1];
56.         BuffParent1[2]:=Population[Parent1][2];
57.         BuffParent1[3]:=Population[Parent1][3];
58.  
59.  
60.       for I:=1 to 3 do
61.       begin
62.         BuffParent2[I]:=Population[Parent2][i];
63.       end;
64.  
65.  
66.       if Crossoverpoint=1 then
67.       begin
68.         Population[Parent1][1]:=BuffParent1[1];
69.         Population[Parent1][2]:=BuffParent2[2];
70.         Population[Parent1][3]:=BuffParent2[3];
71.  
72.         Population[Parent2][1]:=BuffParent2[1];
73.         Population[Parent2][2]:=BuffParent1[2];
74.         Population[Parent2][3]:=BuffParent1[3];
75.       end;
76.  
77.       if Crossoverpoint=2 then
78.       begin
79.         Population[Parent1][1]:=BuffParent1[1];
80.         Population[Parent1][2]:=BuffParent1[2];
81.         Population[Parent1][3]:=BuffParent2[3];
82.  
83.         Population[Parent2][1]:=BuffParent2[1];
84.         Population[Parent2][2]:=BuffParent2[2];
85.         Population[Parent2][3]:=BuffParent1[3];
86.       end;
87.  
88.    End;
89.  
90.  
91.  
92. Begin
93.  
94. For I:=1 To 10 Do{Init Random Population}
95. Begin
96.    Population[I][1]:=Randomgennum(4);
97.    Population[I][2]:=Randomgennum(4);
98.    Population[I][3]:=Randomgennum(4);  
99. End;
100.  
101. Numberofgeneration:=1;
102. Isfound:=False;
103. Whotisneeded:=12;{All Numbers Together}
104.  
105. {Lets Now Start Our Loop}
106.  
107. While Isfound=False Do
108. Begin
109.    Check;
110.    Buffermembers[1]:=Tournament(Randomgennum(10),Randomgennum(10));
111.    Buffermembers[2]:=Tournament(Randomgennum(10),Randomgennum(10));
112.    Newmembers(Buffermembers[1],Buffermembers[2]);
113.    Numberofgeneration:=Numberofgeneration+1;
114. End;
115.  
116.  
117. End.

ошибка при запуске на линии Population[Parent1][1]:=BuffParent1[1];
В чём тут прикол?

Kalter, нипанятна. дай пример с тремя процедурами, где можно будет вызвать две из них когда угодно.

Ребят, хелп ми. Компилирую через лазарус.