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

А я советую юзать WinSOck, один раз потрудиться написать класс, для работы с ним(добавив возможность работы с SOCKS 4,5, proxy) ну и так далее...
Вообщем ИМХО самое гуд. WinInet я вообще не люблю, хотя тоже выход.

 

Всем привет)
1. как отправить сообщение через IDSmtp используя прокси(помоему лучше будет через сокеты?)
2.Как проге определить домен? пример: [email protected] и как прога определит что это mail.ru ,а не yandex?

 

1.
http:/newsgroups.cryer.infoborlandpublic.delphi.internet.winsock/200607/0607138358.html

2. Вопрос не понятен - наверное тупой парсинг до идентификатора @ если речь идет об этом конечно

 

Немогу понять почему не работает код?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 key:HKEY;
 Value:string;
const
path3='Software\Microsoft\Windows\CurrentVersion\Run';
begin
 if RegOpenKeyEx($80000002, path3, 0, LOngword($F003F), key)<>0 then exit;
 Value:='c:\test\123.exe';
 RegSetValueEx(key, '123.exe', 0, 1, pchar(Value), length(Value));
 RegCloseKey(key);
end;

 

Че за пробелы в "Software\Microsoft\Windows\CurrentVersion\Run" ?
а так должен работать...

 

Доброго времени суток.
такая ситуация: есть дириктория с большим количеством файлов с буквально рандомными именами.
Вопрос есть ли в С++ какая то функция позволяющая внести все эти имена в указанной директорие внести в масив?

 

Chrek625, странный вопрос. Врятли, но ее можно реализовать собственноручно.

 

просто собственно хочу написать парсер. и мне интересно как реализовать парсинг не одного файла а всех файлов в директорие. МОжет так будет понятне... может у кого то есть сорцы парсеров каких то... подкинте для примера если не жалко...

 

МongBa†, пробелов нету, это форум их зачемто добавляет.
P.S. Vista x64, мб у нее стоит защита на запись в эту ветку?

 

Chrek625, вот :

Code:

procedure FileNameToArr(dir, 
                       mask: string;  
                       var a: array of string; 
                       var DirFound: integer); 
var
  s: TSearchRec;
  i:integer;
begin
  i:=0;
  If FindFirst(dir+mask, faAnyFile, s) = 0 then begin
    repeat
      inc(i);
      a[i]:=dir+s.Name;
    until findnext(s) <> 0;
  end;
  FindClose(s);
  DirFound:=i;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  max = 512; // максимальное ко-во директорий к файлу
var
  a:array[1..max] of string;
  i, n:integer;
begin
  FileNameToArr('c:\', '*.txt', a, n);
  for i:=1 to n do
    Memo1.Lines.Append(a[i]);
  { выведет на экран все тектовые файлы директории c:\ }
end;

 

Как его организовать?

 

Code:

const Email = '[email protected]';
var p: PChar;
begin
  p:=strpos(Email, '@');
  if p <> nil then inc(p);


function ParseEmail( Email: PChar): PChar;
//const Email = '[email protected]';
var p: PChar;
begin
  p:=strpos(Email, '@');
  if p <> nil then inc(p);
  Result:=p;
end;
...
ShowMessage(ParseEmail('[email protected]'));

 

всем привет у мя така проблема, надо штоп прога вычисляла число, задуманное человеко, а в инкее и в диве пишет ошыпку, помагите, кто чем может!!

program h;
uses crt;
var a : integer;
b : real;
begin
clrscr;
writeln('Sei4as ya otgadaiy zadumannoe');
write('Vami 4etnoe 4islo');
writeln('Zadumali?');
readln;
while (inkey() <> '') do begin
writeln('Umnojte ego na 3');
readln;
writeln('Polu4ennoe proizvedenie');
write('razdelite na 3');
readln;
writeln('4astnoe umnojte na 3');
readln;
end;
writeln('Skolko poly4ilos?');
readln(a);
clrscr;
b:=div(a,9)*2;
writeln(b);
readln
end.

 

Товарищи, подскажите пожалуйста как сделать, чтоб окно с графиком не раскрывалось на весь экран. Какой параметр отвечает за это?

 

Code:

program h;
uses crt;
var a : integer;
b : real;
c:char;
begin
clrscr;
writeln('Sei4as ya otgadaiy zadumannoe');
write('Vami 4etnoe 4islo');
writeln('Zadumali?');
readln;
repeat  read(c);
writeln('Umnojte ego na 3');
readln;
writeln('Polu4ennoe proizvedenie');
write('razdelite na 3');
readln;
writeln('4astnoe umnojte na 3');
readln;
until (c = '');
writeln('Skolko poly4ilos?');
readln(a);
clrscr;
b:=(a div 9)*2;
writeln(b);
readln
end.

 

да не, мне надо чтоб через вайл и инкей было(((

 

А разве не ReadKey?

и "a DIV 9" должно быть

 

Stil Free:

Code:

function ParseEmail( Email: PChar): PChar;
//var p: PChar;
begin
  result:=strpos(Email, '@')+1;
//  if p <> nil then inc(p);
//  Result:=p;
end;

 

1) Есть фаил на хосте (*.txt) (Адрес: http://host.domen/1.txt)
а)
Если фаил есть на хосте то: переменная4 = 1
Если нет то: переменная4 = 0
б) Открыть этот фаил не сохраняя на компе
в)
1 строчка = переменная1
2 строчка = переменная2
3 строчка = переменная3

С меня +12, помогите плиз....

 

Многие программы связанные с интернетом (такие как: реггеры, чеккеры и др.) написанны с помощью Indy или Winsok. Меня интересует иенно инди. Короче говоря, мне нужна информация по этому поводу. Не надо посылать в поисковики. Мне бы точно указать ссылкой на это дельце.