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

и вес трояна наверно приличный

 

Teamviever както работает без внешних белых
и ботнеты тоже! так что можете посоветовать?
да и у меня белый айпи!

 

Подключаться к жертве на прямую (у него тоже должен быть прямой ip).
Работать через веб гейт\другой командный центр.
Работать через осеку\жаббер e.t.c/
//Код улыбнул).

 

Пример с веб гейтом)
в студию или личку

 

Delphi - нужна помощь.

Привет всем. Как сделать что бы файл открывшейся в РичЕдит по кнопке можно было отсортировать по алфавиту?

 

Есть !!! Рич Едит мпросто меняем на ЛистБокс

var
i, x: Integer;
begin
for i := 0 to (ListBox1.Items.Count - 1) do
for x := 0 to (ListBox1.Items.Count - 1) do
if (ListBox1.Items[x] < ListBox1.Items) and (x > i) then
begin
ListBox1.Items.Insert(i, ListBox1.Items[x]);
ListBox1.Items.Delete(x + 1);
end;
end;

 

не проще для сортировки использовать ListBox1.Sorted:= True; или я чего-то не понял? =)

 

симкарты

всем привет ,у меня есть симкарты билайн со стартовым балансом 100,150,200р ,как их можно вывести на карту ?через какие платежные системы под наименьший %,через киви пробовал симкарту с балансом 200р- пополнил ее на 500р ,и все равно нельзя ,тогда как еще можно ПОМОГИТЕ КТО ЗНАЕТ ,ЗАРАНЕЕ СПС

 

Давай, до свидания !

 

Подскажите пожалуйста пример загрузки файла на сервак по хттп протоколу.

 

Delphi / Pascal ?

 

Не на брейнфаке... А зачем я в этой теме создал?
Использую инди.

 

Подскажите как сделать. В общем есть 2 функции. 1) chaneStr подменяет необходимую строку на другую по номеру в txt файле
2) FindTextInFile сверяет есть ли такая строка уже в файле если нет то добавляет строку в конец файла.

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

Code:

procedure chaneStr(NameFile, textStr:string; idstr:Integer);
  begin
    with TStringList.Create do
      begin
        LoadFromFile(NameFile);
        Strings[idstr] := textStr;  // I - номер строки
        SaveToFile(NameFile);
        Free;
      end;
  end;

procedure FindTextInFile(const FileName: TFileName; text:string);
 var
   i: Integer;
   url, status, textFile:string;
   find: Boolean;
 begin

   find:=False;

   AssignFile(MyTextFile, NameFile);
   Reset(MyTextFile);

   i := 0;
   
    while not Eof(MyTextFile) do
      begin
        ReadLn(MyTextFile, textFile);

        url := Trim(explode(textFile,'~',0));
        status := explode(textFile,'~',1);

        if (url = text) then
          begin

             if (status = '0') then
              begin
                chaneStr(NameFile, url+'~1', i);
                Form1.embdwb1.Navigate(url);
                find := True;
              end;
             
             Break;
          end;

          i:= i + 1;
      end;

      CloseFile(MyTextFile);

      if (find <> true) and (text<>'') then
         begin
          Append(MyTextFile);
          WriteLn(MyTextFile, text+'~0');
          CloseFile(MyTextFile);

         end;

 end;

 

2Rastamanka
FileStream

 

Сурово, сначала закрыть а потом добавить строку.
Юзай TstringList не страдай вышеописанной порнографией.

 

Подскажите регулярку Rexep под строку

Code:

/app2388722_5583636#d201206291300034412cf8225488aa32bdf30c565bb52dd288a33abc335583636\" title

Необходимо спарсить значение

Code:

5583636#d201206291300034412cf8225488aa32bdf30c565bb52dd288a33abc335583636

Пробую

Code:

RegExp.Expression := 'app2388722_(.+?)\';

Но ругается TRegExpr(comp): Traillinig \ (pos 18)

 

Чет коже говорит уберите *** свой слэш, или экранируйте.

Code:

app2388722_([0-9#\sa-z]*?)

 

Ребята, подкиньте пожалуйста функцию, которая парсит строку, отделяя первое слово до пробела. Нету времени соображать pos, CharNext, etc.
Т.е. на вход функции подаем строку, на выходе получаем опять таки строку, которая является первым словом до пробела.

 

Code:

function Word(const Str: string): string;
var
  p: Integer;
begin
  p := pos(' ', Str);
  if p > 1 then
    Result := Copy(Str, 1, p - 1)
  else
    Result := '';
end;

 

Подскажите как получить ответ idhttp не в виде html кода, а просто шапку?

Пример:

HTTP/1.1 200 OK
Date: Wed, 04 Jul 2012 10:22:22 GMT
Server: Apache/2.2.16 (Debian)
Set-Cookie: check=1; path=/;

и тд.