Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
27.07.2007, 04:01
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842
Репутация:
5
|
|
а есть в делфи 7 код например такой
procedure TForm1.Button1Click(Sender: TObject);
begin
............ {чтоб при клике машина ушла на перезагрузку??? или такое ни как???} подскажите plz
end;
end.
|
|
|
27.07.2007, 04:59
|
|
Постоянный
Регистрация: 20.01.2007
Сообщений: 705
Провел на форуме:
5381835
Репутация:
1329
|
|
SNAIPER ShoT
Код:
ExitWindowsEx(EWX_REBOOT+EWX_FORCE, 0);
|
|
|
|
27.07.2007, 05:04
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842
Репутация:
5
|
|
ТЫ прям ВОЛШЕБНИК!!! СПС =)!!!
|
|
|
|
27.07.2007, 07:09
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Сообщение от z01b
Какой сайт 
Я тебе сказал чтоб шлюз пинговал Гы-гы... Ну не так выразился... Звиняй...
|
|
|
|
27.07.2007, 10:50
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152
Репутация:
94
|
|
Сообщение от zl0y
Короче мне надо читать построчно файл (что это представляет из себя):
читает в буфер все символы до #13#10 (конец строки),и так пока не кончиться файл...длинна строки небольшая (не больше 50 символов). ReadLn не подходит т.к мне надо много раз открыть файл на чтение,но если делаю так ошибку выдает.
может я тя не правильно понял но.. мож так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
List:TStringList;
i:integer;
Source:string;
begin
List:=TStringList.Create;
if OpenDialog1.Execute then
List.LoadFromFile(Opendialog1.filename)
else exit;
for i:=0 to List.count-1 do begin
if pos('#13#10',List.Strings[i])> 0 then
Source:=List.Strings[i];
delete(Source,pos('#13#10',List.Strings[i]),length(List.Strings[i]));
List.strings[i]:=source;
end;
.........
.........
........ // тут собственно можешь делать что угодно со
//строками
List.SaveToFile(OpenDialog1.FileName);
List.free;
end;
и не надо парится с доступом к файлу
|
|
|
|
27.07.2007, 13:52
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
перевожу исходник с си на делфи, не могу понять где ошибка в коде.
Код:
DWORD WINAPI ServAccept(LPVOID lpParam)
{
struct sockaddr_in ClientAddr;
int iSize=sizeof(ClientAddr);
SOCKET sConnect;
while(true)
{
if((sConnect=accept(*(SOCKET*)lpParam,(sockaddr*)&ClientAddr,&iSize))==INVALID_SOCKET)
break;
Connecting((LPVOID)sConnect);
// if(CreateThread(0,0,Connecting,(LPVOID)sConnect,0,0)==0)
// break;
}
return 0;
}
вот на делфи
Код:
procedure ServAccept(lpParam: pointer); stdcall;
var
iSize : integer;
sConnect : TSOCKET;
ClientAddr: PSockAddr;
begin
iSize:=sizeof(ClientAddr);
while true do
begin
sConnect:=accept(TSOCKET(lpParam),ClientAddr,@iSize);
if sConnect = INVALID_SOCKET then
break;
Connecting(pointer(sConnect));
end;
(* if(CreateThread(0,0,Connecting,(LPVOID)sConnect,0,0)==0)*)
(* break;*)
end;
|
|
|
|
27.07.2007, 14:03
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от Joker-jar
Вот что-то ужасное накидал 
Код:
procedure ReadLNFile(filename: string);
var
f: THandle;
count: Dword;
buf: array[0..255] of char;
s: string;
begin
s := '';
f:= FileOpen(filename, fmOpenRead or fmShareDenyNone);
repeat
fillchar(buf, sizeof(buf), 0);
count := FileRead(f, buf, 256);
s := s + StrPas(buf);
while pos(#13#10, s) > 0 do
begin
messagebox(0,pchar(copy(s,1,pos(#13#10, s))),nil,0);
delete(s,1,pos(#13#10, s));
end;
until
count = 0;
FileClose(f);
messagebox(0,pchar(s),nil,0);
end;
Да вот то,что надо работает как часы
|
|
|
|
27.07.2007, 18:03
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
Провел на форуме:
413927
Репутация:
71
|
|
Сообщение от t04
перевожу исходник с си на делфи, не могу понять где ошибка в коде.
=) в функцию ServAccept передается указатель на сокет а не сам сокет просто его еще надо разименовать перед использованием в accept
|
|
|
|
27.07.2007, 18:16
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842
Репутация:
5
|
|
А как тама в дэлфи 7 зделать??? Например ты в фарме установил размер окна на котором приложене всегда будет открыто!!! ТО ЕСТЬ ЧТО б его не могли раздвинуть по монетору уже в *.exe файле!!! Подскажите пожалуйсста!!!  |
|
|
|
27.07.2007, 18:28
|
|
Новичок
Регистрация: 17.05.2007
Сообщений: 13
Провел на форуме:
2036698
Репутация:
20
|
|
Сообщение от SNAIPER ShoT
А как тама в дэлфи 7 зделать??? Например ты в фарме установил размер окна на котором приложене всегда будет открыто!!! ТО ЕСТЬ ЧТО б его не могли раздвинуть по монетору уже в *.exe файле!!! Подскажите пожалуйсста!!! Свойство формы BorderStyle, поставь в bsSingle
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
