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

Code:

function CheckWriteFile(const FileName: String): Boolean;
var
  hFile: THandle;
  lpName: PChar;
begin
  lpName:= PChar(FileName);
  hFile:= CreateFileA(lpName,
                      GENERIC_WRITE,
                      FILE_SHARE_WRITE,
                      nil,
                      CREATE_ALWAYS,
                      FILE_ATTRIBUTE_NORMAL,
                      0);

  if hFile <> INVALID_HANDLE_VALUE then CloseHandle(hFile);

  Result:= DeleteFile(lpName);
end;

 

Всем привет, собственно у меня 2 вопроса.
1) Как в делфи запустить какой-нибуть сторонний файл, *.exe например
2)Сори что не в тему, но все-таки, посоветуйте плиз книгу по object-c

 

Code:

ShellExecute(Handle, 'open', PChar('путь к exe'), nil,PChar('папка там где лежит exe'), SW_MINIMIZE);

В users: shellapi

 

Эмм спасибо за помощь, но в моем случае не где "Min" не обозначается и он тупо встает на этом месте не доходя до всего кода

 

Min(passwords.Count, logins.Count)
это стандартная функция из модуля Math. Возвращает она минимальное значение из двух переданных.
можешь в принципе её до цикла вызвать и записать в какую то переменную которую будешь потом использовать в цикле.

 

Помогите выдернуть каптчу (после ввода мыла), _smotri.com/registration/submit .
Спасибо.

 

а че ее выдергивать, там же вродь даже линк на нее не меняется, все время
http://smotri.com/profile/captcha

 

Каптча динамическая.
Т.е. мы получаем страничку регистрации с одной каптчей, а выдергиваем другую. Или что то не так?

 

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

 

Грузишь страницу, парсишь куки (сессию), посылаешь запрос на капчу с этими куками.

 

Добрый вечер, точнее доброй ночи. Прошу помочь написать программу на паскале..а то завтра у меня экзамен, ничего не успеваю...кто поможет написать программу на паскале низкий поклон!
Задача:
дан список x1,x2,...xn(n>=2) элементы которого являются действительными числами. Получить последовательность x1-xn,x2-xn....xn+1-xn.

P.S. заранее всем огромное спасибо, надеюсь, на вашу помощь!

 

пытаюсь отправить смс с сайта, но что то не выходит, вылетает ошибка при отправке запроса на сайт. вот код:

PHP:

implementation
  var Data:TStringList;
      sid, S:string;
      FS:TFileStream;

{$R *.dfm}



procedure TForm1.Button3Click(Sender: TObject);
begin
 try
  Data.Free;
 except
 end;

 S:=IdHTTP1.get('http://nnov.ncc-volga.ru/services/sms/');
 sid:=Copy(S, Pos('id="captcha_img" src="/bitrix/tools/captcha.php?captcha_sid=', S)+60, 32);
 FS:=TFileStream.Create('captcha.jpeg',FMCreate);
 IdHTTP1.Get('http://nnov.ncc-volga.ru/bitrix/tools/captcha.php?captcha_sid='+sid, FS);
 FS.Free;
 Image1.Picture.LoadFromFile('captcha.jpeg');


end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Data.Add('code='+Edit1.Text); //код
 Data.Add('number='+Edit2.Text); //номер
 Data.Add('text='+Edit7.Text);  //текст сообщения
 Data.Add('captcha_sid='+sid);
 Data.Add('captcha='+Edit3.Text); //капча

 IdHTTP1.post('http://nnov.ncc-volga.ru/services/sms/?action=send', Data);
end;

что делать?

 

кто знает как создать простой переводчик англ=>рус ? покажите пожалуйста пример

 

У меня Борл. делф. 7.
Я установил компонент тасекю клиент, но установил так, что папка из которой ставился комонент удалена и вообще распологалась хз где. Я попыталя установить снова из нужной папки но вот делфи говорит что обломись, компонент есть. Я снёс делфи и установил делфи снова но компонент ставица с ошибкой и во время компиляции не найден фаил .dcu (если не вру). Как исправить? Мб кто знает?

 

.dcu проще кидать в папку с проектом, вообщем как я делал устанавливал все.. а потом еще в папке с проектом должны быть: %any%.dcu и %any%.pas

 

Вот у меня есть edit1 и edit2 как сделать что бы текст из edit1 и edit2 при нажатии на кнопку записывался в файл http://блабла.ru/accs.php
Подскажите..

 

Послать пост или гет запрос по адресу http://блабла.ru/accs.php с данными в едитах, но нужно что бы сам скрипт обработал отправленные данные и записал их в файл.

 

Можно пример?
Скрипт есть

PHP:

<?php
$_mess.=$_GET['edit1'] .  ":" . $_GET['edit2'] . "\n" ;
$f=fopen("logmoipasslogin.txt","a+");
flock($f,LOCK_EX); 
fwrite($f, "$_mess");
fflush($f); 
flock($f,LOCK_UN); 
fclose($f); 
?>

 

PHP:

IdHttp1.Get('http://site.ru/skript.php?edit1='+edit1.text+'&edit2='+edit2.text+'');

В edit1 должен быть логин, в edit2 пасс

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin

[COLOR=YellowGreen][B]Data :=tstringlist.Create;[/B][/COLOR]
Data.Add('code='+Edit1.Text); //код
 Data.Add('number='+Edit2.Text); //номер
 Data.Add('text='+Edit7.Text);  //текст сообщения
 Data.Add('captcha_sid='+sid);
 Data.Add('captcha='+Edit3.Text); //капча

 IdHTTP1.post('http://nnov.ncc-volga.ru/services/sms/?action=send', Data);
end;