 |
|
27.07.2007, 04:01
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами:
9937537
Репутация:
5
|
|
а есть в делфи 7 код например такой
procedure TForm1.Button1Click(Sender: TObject);
begin
............ {чтоб при клике машина ушла на перезагрузку??? или такое ни как???} подскажите plz
end;
end.
|
|
|
27.07.2007, 04:59
|
|
Постоянный
Регистрация: 20.01.2007
Сообщений: 705
С нами:
10161726
Репутация:
1329
|
|
SNAIPER ShoT
Код:
ExitWindowsEx(EWX_REBOOT+EWX_FORCE, 0);
|
|
|
|
27.07.2007, 05:04
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами:
9937537
Репутация:
5
|
|
ТЫ прям ВОЛШЕБНИК!!! СПС =)!!!
|
|
|
|
27.07.2007, 07:09
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
С нами:
9893296
Репутация:
2
|
|
Сообщение от z01b
Какой сайт 
Я тебе сказал чтоб шлюз пинговал Гы-гы... Ну не так выразился... Звиняй...
|
|
|
|
27.07.2007, 10:50
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами:
10395573
Репутация:
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
С нами:
10175096
Репутация:
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
С нами:
10346786
Репутация:
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
С нами:
10439609
Репутация:
71
|
|
Сообщение от t04
перевожу исходник с си на делфи, не могу понять где ошибка в коде.
=) в функцию ServAccept передается указатель на сокет а не сам сокет просто его еще надо разименовать перед использованием в accept
|
|
|
|
27.07.2007, 18:16
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами:
9937537
Репутация:
5
|
|
А как тама в дэлфи 7 зделать??? Например ты в фарме установил размер окна на котором приложене всегда будет открыто!!! ТО ЕСТЬ ЧТО б его не могли раздвинуть по монетору уже в *.exe файле!!! Подскажите пожалуйсста!!!  |
|
|
|
27.07.2007, 18:28
|
|
Новичок
Регистрация: 17.05.2007
Сообщений: 13
С нами:
9992250
Репутация:
20
|
|
Сообщение от SNAIPER ShoT
А как тама в дэлфи 7 зделать??? Например ты в фарме установил размер окна на котором приложене всегда будет открыто!!! ТО ЕСТЬ ЧТО б его не могли раздвинуть по монетору уже в *.exe файле!!! Подскажите пожалуйсста!!! Свойство формы BorderStyle, поставь в bsSingle
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
