 |
|
23.02.2009, 14:00
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
С нами:
9671366
Репутация:
332
|
|
Сообщение от Maxxxtri23
Все спс уже со всем разобрался, просто использовал _http://www.whatismyip.com/automation/n09230945.asp =)
вточности как в моем коде.....
|
|
|
23.02.2009, 18:14
|
|
Новичок
Регистрация: 17.06.2008
Сообщений: 22
С нами:
9420980
Репутация:
52
|
|
Эту тему уже находил, все равно не понимаю, к примеру вот что:
Код:
MySQLClient.UnixSocket := Edit5.Text;
Что за UnixSocket?
|
|
|
|
24.02.2009, 01:04
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Очень нужен код на делфи как заливать большие файлы (примерно 60-70 метров) на рапиду, чтобы потом готовая ссылка на файл появилась в memo.
У кого есть готовый пример, пожалуйста выложите сюда.
|
|
|
|
24.02.2009, 16:09
|
|
Новичок
Регистрация: 28.01.2009
Сообщений: 4
С нами:
9096726
Репутация:
0
|
|
есть процедура, которую я запуская в отдельном потоке:
Код:
procedure SockThread;
var
S: TSocket;
vbuf: array[0..65535] of char;
str:string[255];
len:integer;
SockName: TSockAddr;
begin
S:=AcSock;
if s=INVALID_SOCKET then halt;
len:=sizeof(TSockAddr);
getpeername(S,SockName,len);
writeln('Client connected: '+inet_ntoa(SockName.sin_addr));
FillChar(vbuf, sizeof(vbuf), 0);
repeat // принимаем команды
recv(S, vbuf, sizeof(vbuf), 0);
writeln('Received from client: '+vbuf);
send(S, vbuf, sizeof(vbuf), 0);
FillChar(vbuf, sizeof(vbuf), 0); // очищаем массив vbuf
if S<0 then break;
until str<>'q';
CloseSocket(S);
end;
Всё это компилируется, клиент успешно соединяется с сервером, клиент посылает данные, но сервер(эта процедурка) не принимают данные. Вправьте мне руки =) |
|
|
|
24.02.2009, 18:02
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
С нами:
9482786
Репутация:
1357
|
|
Подскажите хороший учебник по паскалю!
|
|
|
|
25.02.2009, 01:44
|
|
Участник форума
Регистрация: 31.08.2006
Сообщений: 149
С нами:
10365076
Репутация:
155
|
|
Delphi
Как программно определить тип прокси (SOCKS5, SOCKS4, HTTP, HTTPS)
|
|
|
|
25.02.2009, 07:26
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
С нами:
9785147
Репутация:
137
|
|
У меня вот несколько вопросов по потокам, например я создаю в потоке 1 процедуру Potok1
Код:
var
Form1: TForm1;
trId : THandle;
implementation
{$R *.dfm}
procedure Potok1;
begin
showmessage('поток1');
end;
begin
CreateThread(nil,0,@Potok1,0,0,trId);
end.
1. Как уничтожить этот поток, после выполнения в процедуре Potok1 всех команд.
2. Как уничтожить этот поток, если в процедуре Potok1 выполняется бесконечный цикл.
3. если я например 2 раза создам этот поток
Код:
begin
CreateThread(nil,0,@Potok1,0,0,trId);
CreateThread(nil,0,@Potok1,0,0,trId);
end.
то как поведёт себя программа, создастся 2рой поток с этой процедурой или что?
4. Что ещё интересного можете дать почитать по потокам.
Последний раз редактировалось ZET36; 25.02.2009 в 07:30..
|
|
|
|
25.02.2009, 10:30
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
1) поток сам уничтожится после своего выполнения.
2) или ставить глобальный флаг остановки и в патоке обрабатывать его типа while(not stopflag) do .....
или просто насильно убить поток через TerminateThread(trId,0);
Но тогда поток запускать нужно так: trId:=CreateThread(nil,0,@Potok1,0,0,trId);
trId в данном случае - дискриптор патока, через который его можно убить, остановить, изнасиловать, запустить.
3) Если поток юзает локальные переменные (инициализированные внутри функции) то хоть 100 раз запускай его. Если юзаются глобальные переменные, то они могут затераться, если это чтото типа буферов. Глобальные счетчики можешь юзать спокойно
4) почитай про все API функции из модуля windows.pas в который будет в названии текст thread
|
|
|
|
25.02.2009, 14:34
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
С нами:
9785147
Репутация:
137
|
|
slesh спасибо
|
|
|
|
25.02.2009, 15:09
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Я посылаю сайту POST запрос через IDhttp, и собственно как мне ответный HTML код получить после выполненного запроса??? (нужно реализовать именно через idhttp)
|
|
|
|
|
|
|
|
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
|
|
|
|
Похожие темы
Линейный вид
