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

Подскажите пожалуйста как подключить к проекту свои курсоры???!!!
Весь день бьюсь нихрена не выходит...

 

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  h: hcursor;
begin
  h := LoadCursorFromFile('C:\windows\cursors\sizenwse.ani');
  Screen.Cursors[1] := h;
  Form1.Cursor := 1;
end;

 

Не работает такой вариант...

пробовал и cur и ani файлы...выскакивает какая-то левая ошибка...

Access violation at address 00E390A4 in module 'MyDLL'. Read of address 0000007C.

 

А что? Путь до системной папки виндувс (замени на твой путь), дальше из нее загружает картинку курсора (токо там без пробела в конце пути)

 

Я весь день мучаюсь...и рес файлы создавал и пытался подобным образом подключить напрямую...может есть ещё способы импорта сторонних курсоров?

P.S. Ошибка происходит при
Form1.Cursor := 1;

P.P.S. Юзаю Делфи 2006...может она у меня какая палёная?...

 

Если мне не изменяет память то:
Screen.Cursors[1] := LoadCursorFromFile('mycursor.ani');
Screen.Cursor := 1;

Где mycursor.ani это твой курсор в папке с программой...

Немного поискал и наткнулся на линк
после изучения которого думаю многое прояснится...

Ещё один линк в тему

 

Как можно с помощю компонента TComPort прочитать сроку с порта.Надо что бы программа читала все время и если что то получила должна добавить в Memory. Пробовал comport.readstring но не помогает. помогите

 

Вопрос:
Делаю запрос через браузер. Ответ:

Code:

HTTP/1.1 200 OK
Server: nginx/0.7.41
Date: Tue, 08 Sep 2009 08:04:54 GMT
Content-Type: text/html; charset=windows-1251
Content-Encoding: gzip
Cache-Control: no-cache,no-store,must-revalidate
Pragma: no-cache
Expires: Mon, 08 Sep 2008 08:04:54 GMT
Last-Modified: Tue, 08 Sep 2009 12:04:54 GMT
Vary: Accept-Encoding
Content-Length: 16761
Via: 1.1 inet
Proxy-Connection: close
...
...

Все нормально

Делаю запрос через программу.
Ставлю AcceptEncoding:='deflate, gzip, x-gzip, identity, *;q=0';
В снифере нормально, в программе:

Code:

‹

Если ставить AcceptEncoding:='deflate, identity, *;q=0';
то ошибка идет:

Code:

HTTP/1.1 501 Not Implemented (Proxy server error)
Via: 1.1 inet
Proxy-Connection: close
Content-Type: text/html; charset=windows-1251
Content-Length: 435
...
...

Как всё-таки получить ответ в программе?

 

вообще убрать строчку AcceptEncoding и пусть данные преедаются в обычном, неупакованном виде

 

без нее тоже:

Code:

HTTP/1.1 501 Not Implemented (Proxy server error)
Via: 1.1 inet
Proxy-Connection: close
Content-Type: text/html; charset=windows-1251
Content-Length: 435

 

ребят....помогите с длл)))

 

Всем доброго времени суток!

У меня есть вопрос :

Можно ли каким нибудь образом инициализировать службу telnet и задать ей два параметра Логин и пароль, ну допустим логин: user пароль: 0000 ?

Ну допустим при создание формы в событии OnCreate

 

Вот ещё вопрос.. Опишите какой нибудь самый простой метод парсинга html кода...

Заранее благодарен

 

http://delphisite.ru/ishodniki/parser-html

---

А у меня такой вопросик:

Есть массив (примерно 40 строк), и я знаю что на 5 строке есть нужная мне информация, как мне из массива достать только 5 строчку?

Вся проблема в том что я не знаю что находится на 5 строчке... (Если бы знал то использовал Pos(), delete(), и т.д.

 

в массиве не строки, а элементы.
mas[index]
if (mas[index] != 'abc')
begin
exit;
end;

while(true)
begin
if (mas[index] == 'abc') break;
end;


по поводу парсинга html документа, самое простое это работа через DOM

 

с удовольствием приму любой простейший рабочий пример отправки http запроса через прокси на вин-апи.

без прокси оно выглядит примерно так:

Code:

wData:WSAData;
s:TSOCKET;
addr:sockaddr_in;

  s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  FillChar(addr, SizeOf(sockaddr_in), 0);
  addr.sin_family:=AF_Inet;
  addr.sin_port:=htons(80);
  addr.sin_addr.S_addr:=inet_addr('218.123.123.123');
  Connect(S,addr,SizeOf(TSockAddr));
        
         sendbuff := 'GET http://site.ru/xmls/123.php HTTP/1.0'+ #13#10 +
                    'Host: pentagon.com'+ #13#10 +
                    'UserAgent: Mozilla/5.0 (Windows NT 5.1)'+ #13#10 +
                    'Accept: */*' + #13#10 +
                    'Referer: http://google.ru'+ #13#10 +
                    'Connection: Keep-Alive'+ #13#10#13#10; 

  send(s, sendbuff[1] , Length(sendbuff), 0);
  recv(s,sBuff,5000,0);
  Shutdown(S,SD_Send);
  closesocket(s);

 

если http прокси то так и оставляй тока шли на IP и PORT прокси эти даныне

Code:

     sendbuff := 'GET http://pentagon.com/xmls/123.php HTTP/1.0'+ #13#10 +
                    'Host: pentagon.com'+ #13#10 +
                    'UserAgent: Mozilla/5.0 (Windows NT 5.1)'+ #13#10 +
                    'Accept: */*' + #13#10 +
                    'Referer: http://google.ru'+ #13#10 +
                    'Proxy-Connection: Close'+ #13#10#13#10; 

 

А как можно работать с антикапчой через сокеты? (Отправка файлов через кодировку multipart/form-data)

 

Выбрать? Всмысле? ЧТо ты хочеш сделать с ними?
Записать данные, считать данные, поставить фокус в вода или еще что?

 

$Atlet$

FindWindow
FindWindowEx
SetWindowText