VPF: Delphi: Сети,

Ошибка при установки Indy

klyaksa — 2010-09-06T17:54:00-02:00

При попытке задать Bindings у IdTCPServer в режиме проектирования вылазит:
---------------------------
Error
---------------------------
Access violation at address 0AA0CBF0. Write of address 5E013B6F.
---------------------------
OK Details >>
---------------------------

Indy отпрвка строк в Unicode

klyaksa — 2010-09-05T18:15:00-02:00

В свежей версии костыль не нужен... Вопрос снят.

Проверка домена и потоки, прога "висит" при подключении модема

Matematik — 2010-09-05T20:54:00-02:00

Поищи в гугле как задавать timeout для функций WinInet

PS

Цитата

result:= (res ='200') or (res ='302');

Не очень надежная проверка. Сервер может отвечать не только этими двумя кодами.

IdFTP1.Connect проверка

Akella — 2010-08-31T22:10:00-02:00

повторяю, что для IdFTP1.Connected не нужны логин и пароль

Net use в Delphi

cat512 — 2010-09-01T14:03:00-02:00

Цитата(zhefran @ 1.9.2010, 15:03)

Цитата(cat512 @ 30.8.2010, 14:14 /findpost.gif' onclick='return getPost(2204862);' />)

Да возьми заюзай Net.exe в дочернем процессе, а консольный вывод перенаправь в родительский процесс. И будет у тебя Net.exe завраплен
в гуи

Никогда такого не делал. Можешь скинуть пример или обьяснить как это делается?

примерно так:

Код



uses

unit Unit1;

interface

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ExecConsoleApp(
  const ProcessName: string;
  const CommandLine: AnsiString;
  Errors: TStrings
  );
var
  sa: TSECURITYATTRIBUTES;
  si: TSTARTUPINFO;
  pi: TPROCESSINFORMATION;
  hPipeErrorsRead: THANDLE;
  hPipeErrorsWrite: THANDLE;
  Res, bTest: Boolean;
  szBuffer: array[0..256] of Char;
  dwNumberOfBytesRead: DWORD;
  Stream: TMemoryStream;
begin
  sa.nLength := sizeof(sa);
  sa.bInheritHandle := True;
  sa.lpSecurityDescriptor := nil;
  CreatePipe(hPipeErrorsRead, hPipeErrorsWrite, @sa, 0);
  ZeroMemory(@si, SizeOf(si));
  ZeroMemory(@pi, SizeOf(pi));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  si.wShowWindow := SW_HIDE;
  si.hStdInput := 0;
  si.hStdOutput := hPipeErrorsWrite;
  si.hStdError := 0;

  Res := CreateProcess(PChar(ProcessName), pchar(CommandLine), nil, nil, true,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, si, pi);

  if not Res then
  begin
    CloseHandle(hPipeErrorsRead);
    CloseHandle(hPipeErrorsWrite);
    Exit;
  end;
  CloseHandle(hPipeErrorsWrite);

  Stream := TMemoryStream.Create;
  try
    while true do
    begin
      bTest := ReadFile(hPipeErrorsRead, szBuffer, 256, dwNumberOfBytesRead,
        nil);
      if not bTest then
      begin
        break;
      end;
      Stream.Write(szBuffer, dwNumberOfBytesRead);
    end;
    Stream.Position := 0;
    Errors.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;

  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(hPipeErrorsRead);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  ServerName: string;
  RootDir: string;
  Password: string;
  User: string;

const
  AppName = 'C:\windows\system32\net.exe';
begin
  ExecConsoleApp(
    AppName,
//Собственно команды которые должны использ.
      Edit1.Text,
    Memo1.Lines
    );


end;

end.

Только надо строку сконвертить из Dos-овской кодировки в Win-довую

HttpGetText

Matematik — 2010-08-30T13:49:00-02:00

Надо правильно обрабатывать ответ сервера.
Конкретно l2top.ru выдает 302 http://ru.wikipedia.org/wiki/%D0%A1%D0%BF%...%D1%8F_HTTP#302
HttpGetText() это делать не умеет.
Тут надо дописывать ручками.
пример - дeлаю запрос HTTPMethod(), проверяю в заголовках ответа поле "location", если оно есть делаю запрос заново с новым URL

Код


function HTTP_GetHeader(AHeaders: TStrings; const AHeaderName:AnsiString):AnsiString;
var j:Integer;
begin
  Result := '';
  for j:=0 to AHeaders.Count-1 do
  begin
    if Pos(AHeaderName, AHeaders[j])=1 then
    begin
      Result := Copy(AHeaders[j], Length(AHeaderName)+1, MaxInt);
      Exit;
    end;
  end;
end;

function HTTP_HeaderLocation(AHeaders: TStrings):AnsiString;
begin
  Result := HTTP_GetHeader(AHeaders, 'Location: ');
end;

function Http_Get(AHTTP: THTTPSend; const URL: string; const Response: TStrings): Boolean;
begin
  Result := AHTTP.HTTPMethod('GET', URL);
  if Result then
    if HTTP_HeaderLocation(AHTTP.Headers)<>'' then
      Result := Http_Get(AHTTP, HTTP_HeaderLocation(AHTTP.Headers), Response)
    else
      Response.LoadFromStream(AHTTP.Document)
end;

function HttpGetText(const URL: string; const Response: TStrings): Boolean;
var
  HTTP: THTTPSend;
begin
  HTTP := THTTPSend.Create;
  try
    result := Http_Get(HTTP, URL, Response)
  finally
    HTTP.Free;
  end;
end;

Подмена User-Agent (EmbeddedWB), EmbeddedWB

dredei — 2010-08-30T11:09:00-02:00

Цитата(zhefran @ 30.8.2010, 12:09)

Написано на украинском

Я сам из Украины, так что не проблема
Но я так уже делал и 2ip определяет как ИЕ6 (да и скрипт, который я на пхп написал, тоже определяет, как ИЕ6). Решил перейти на Инди, там без проблем реферер и UA можно сменить.
П.С. Всем спасибо

Indy не сохраняет куки. Помогите разобраться.

ange007 — 2010-05-27T14:15:00-02:00

Ребят, есть у кого-то рабочий билд последних IndyTiburon?
Который нормально с куками работает?

В последних просто вместо:

Код


procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText: String; AURL: TIdURI);

вот это

Код


procedure TIdCookieManager.DoAddServerCookie(ACookie: TIdCookieRFC2109; ACookieText: String; AURL: TIdURI);

с большим ко-вом других изменений.

И добавление

Код


if not TextStartsWith(ACookie.Domain, '.') then ACookie.Domain := '.'+ACookie.Domain;

не помогает.

Заранее спасибо.

Как нажать ссылку через idhttp

Akella — 2010-08-19T17:47:00-02:00

Цитата(ecolaloki @ 18.8.2010, 22:18 /findpost.gif' onclick='return getPost(2199639);' />)

мне надо нажать на ссылку на этой странице,станицу могу сохранить и на компе

StringList1.Text := idHttp1.Get('http:\\server1.com\');
StringList.SaveToFile(...)

DHCP запрос, Нужно отправить DHCP запрос

cat512 — 2010-08-27T19:58:00-02:00

http://technet.microsoft.com/ru-ru/library...535(WS.10).aspx

TIdTCPServer и фильтр по IP

klyaksa — 2010-08-25T14:00:00-02:00

Дельфи 2006. Использую TIdTCPServer. Нужно обмениваться информацией только с определенными комп. Их IP известны. Всем остальным надо казаться выключенным, т.е. как будто не запущена программа... Как это можно реализовать? IP клиента можно так - AContext.Connection.Socket.Binding.PeerIP. А где проводить проверку IP и как отрубать клиента? Думается как-то наверное нужно организовать в OnBeforeConnect TIdTCPServer... Так или не так и как конкретно?

post http dll получение результата, Получение результата http запроса в dll

Snowy — 2010-08-24T09:44:00-02:00

Поподробнее, пожалуйста.
Что делаешь, как делаешь, что работает не так.
Вопрос слишком расплывчатый и образный.
Побольше конкретики и деталий.
А то ничего не ясно.