scroollocker
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте, уважаемые профессионалы!
У меня возникла проблема с закачкой файла на ФТП
после нажатия кнопки, возникает ошибка:" Access violation at address 0040921A'"
Помогите разобраться, я начинающий кодер и мне сложно!
Пожалуйста!
вот приведу код програмы:
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, wininet, Mask, ComCtrls;
var
conn_param,inet_open : hinternet;
AboutPC, ftpfilename, filename:pchar;
port: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
Port:=21;
GetMem(AboutPC,100); //выделил память
AboutPC:=Pchar('любая String строка.txt'); //перевел cтринг в Пчар
filename:='C:\Info_.txt';
ftpfilename:='/test/Info_';
strcat(ftpfilename,AboutPC); //добавил в конец фтпфайлнэйм - ЭбаутПиСи
inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT, nil,nil,0);
conn_param := internetconnect(inet_open,'ftp.ru',port,'Name','Pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(conn_param);
internetclosehandle(inet_open) ;
if true then
showmessage('Good');
end;
end. |
|
ateTime' + 