 |
|
20.04.2009, 19:29
|
|
Познающий
Регистрация: 23.01.2009
Сообщений: 32
С нами:
9103893
Репутация:
8
|
|
to KIR@PRO: и ты не угадал! Я наверно неудачно задал вопрос!? Я отлично знаю как пользоваться функцией SetFilePointer... я Joiner пишу и возникла задача как разделить Stub и собственно говоря сами файлы чтобы их извлечь в дальнейшем в TEMP... Мне нужно пометить границы файлов, чтоб в дальнейшем я мог прочитать в буфер с байта X количество размером с файл.....
|
|
|
20.04.2009, 19:45
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
С нами:
10018466
Репутация:
588
|
|
это ты не понял, тут 2 пути, или поиском искать метку или записывать чёткий адрес в переменную. типо
const
dwoffset: dword = $11223344; // размер стаба?
...
SetFilePointer(hFile,dwoffset,FILE_BEGIN);
если файл идёт сразу после стаба, то dwoffset это размер стаба. если нет, то надо посмотреть в HEX-редакторе, где тот файл(ы), который джоиниться.
з.ы. читай статьи по написанию джоинеров.
|
|
|
|
20.04.2009, 20:27
|
|
Познающий
Регистрация: 23.01.2009
Сообщений: 32
С нами:
9103893
Репутация:
8
|
|
to Hellsp@wn: Спасиб.
|
|
|
|
20.04.2009, 22:07
|
|
Познающий
Регистрация: 04.03.2009
Сообщений: 31
С нами:
9045766
Репутация:
2
|
|
Привет уважаемые программеры возник вопрос я сделал программу которая отправляет почту сделал стандартно (TidSMTP, TidMessage) а вот никак не в состоянии понять как файлы прикреплять к мылу
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP;
type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdMessage1CreateAttachment(const AMsg: TIdMessage;
const AHeaders: TStrings; var AAttachment: TIdAttachment);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Connect;
IdSMTP1.Send(idMessage1);
IdSMTP1.Disconnect;
end;
procedure TForm1.IdMessage1CreateAttachment(const AMsg: TIdMessage;
const AHeaders: TStrings; var AAttachment: TIdAttachment);
begin
end;
end.
Всё содержимое я заполнил в компонентах так меньше мучиться думаю тоесть idsmtp.Host, idsmtp.port, idsmtp.username я нестал писать делал по статьям в интернете всё сделал письма на ура отправляет а вот с файлами проблема
Присоединяем к письму аттачмент
Если вам нужно отправить с письмом файл, т.е. аттачмент, то для этого нужно создать объект класса TidAttachment. Для этого применяется следующий конструктор:
Код:
constructor Create(Collection: TIdMessageParts; const AFileName: TFileName = ''); reintroduce;
где Collection - объект класса TIdMessageParts, представляющее собой коллекцию приложений к электронному письму.
контстанта AFileName типа TFileName - представляет собой обычную текстовую строку с указанием правильного пути к файлу, например "C:file.zip", по умолчанию имеет значение ''.
Таким образом, продолжая наш пример, строкой вида
Код:
TIdAttachment.Create(Msg.MessageParts,'c:file.zip' );
мы заполняем свойство MessageParts объекта Msg информацией о аттачменте. Теперь наша структура письма содержит информацию о аттачменте. После отправки сообщения нужно разорвать соединение с сервером, чтобы оно не "висело". Это производится методом Disconnect:
IdSMTP1.Disconnect;
Несмог вот это реализовать куда коды эти не пихал непомогало
подскажите как или правильно их вставить или может подругому как то можно прицепить файл ? буду признателен повышу репутацию |
|
|
|
20.04.2009, 22:31
|
|
Новичок
Регистрация: 23.03.2009
Сообщений: 10
С нами:
9018741
Репутация:
-9
|
|
как обролтиться к файлу на винте??
|
|
|
|
20.04.2009, 23:14
|
|
Познающий
Регистрация: 04.03.2009
Сообщений: 31
С нами:
9045766
Репутация:
2
|
|
Сообщение от Plaf-di
как обролтиться к файлу на винте??
Только матом иначе нельзя
|
|
|
|
20.04.2009, 23:27
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
самый просто способ - юзаю встроенные функции
Код:
var
f:textfile;
begin
assignfile(f,'filename.txt');
reset(f); - открывает для чтения
rewrite(f); - создание / перезапись
append(f); - дописываение в конец
write(f,"helloFFF"); записать стркоу в файл. в конце будет
writeln(f,"helloFFF"); записать стркоу в файл. в конце буде #13#10
readln(f,s) - считать строку из файла
closefile(f); - закрытие файла
|
|
|
|
20.04.2009, 23:59
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
С нами:
9394886
Репутация:
1467
|
|
Сообщение от Plaf-di
как обролтиться к файлу на винте??
Пуск -> Выполнить. В появившемся окошке путь к файлу 
|
|
|
|
21.04.2009, 02:11
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Кто нибудь может привести пример кода как скопировать файл если он занят другой программой?
|
|
|
|
21.04.2009, 02:34
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
С нами:
10265091
Репутация:
541
|
|
hxxp://wasm.ru/article.php?article=lockfileswork не делфи, но код понятен имхо
|
|
|
|
|
|
|
|
Здесь присутствуют: 3 (пользователей: 0 , гостей: 3)
|
|
|
|
Похожие темы
Линейный вид
