Q&A
- 바로 웹으로 실행하는 방범좀 알려주세요
HTmlList := TStringList.Create;
HTmlList.Add('<HTML>');
HTmlList.Add('<head><title>MessengerLogin</title></head>');
HTmlList.Add('<body onLoad="document.loginF.submit();">');
HTmlList.Add('<form name="loginF" method="post" action='+ MailAddress + '>');
HTmlList.Add('<input type="hidden" name="userid" value=' + EdtId.Text+ '>');
HTmlList.Add('<input type="hidden" name="passwd" value='+ EdtPwd.Text+'>');
HTmlList.Add('<input type="hidden" name="jump" value=''3''>');
HTmlList.Add('</form></body></html>');
HTmlList.SaveToFile('c:\mailLogin.html') ;
ShellExecute(Handle, 'open', PChar('IEXPLORE.EXE'), PChar('c:\mailLogin.html'), '', SW_SHOWNORMAL );
위처럼해서 html을 파일로 만든다음 익스플로우로 로그인을 해서 들어갔는데
바로.. WebBrowser저나 바로 코딩에서 바로 들어가는 방법좀 알려주세요
제가 html부분에 약해서.
메일 웹서버에 로그인한 다음 바로 편지쓰기나 읽기로 들어가는 것인데
파일로 만들지 않고..코딩에서 바로 들어가는 방법좀 알려주세요
오늘 하루도 즐겁고 행복한 하루 보내세요
HTmlList.Add('<HTML>');
HTmlList.Add('<head><title>MessengerLogin</title></head>');
HTmlList.Add('<body onLoad="document.loginF.submit();">');
HTmlList.Add('<form name="loginF" method="post" action='+ MailAddress + '>');
HTmlList.Add('<input type="hidden" name="userid" value=' + EdtId.Text+ '>');
HTmlList.Add('<input type="hidden" name="passwd" value='+ EdtPwd.Text+'>');
HTmlList.Add('<input type="hidden" name="jump" value=''3''>');
HTmlList.Add('</form></body></html>');
HTmlList.SaveToFile('c:\mailLogin.html') ;
ShellExecute(Handle, 'open', PChar('IEXPLORE.EXE'), PChar('c:\mailLogin.html'), '', SW_SHOWNORMAL );
위처럼해서 html을 파일로 만든다음 익스플로우로 로그인을 해서 들어갔는데
바로.. WebBrowser저나 바로 코딩에서 바로 들어가는 방법좀 알려주세요
제가 html부분에 약해서.
메일 웹서버에 로그인한 다음 바로 편지쓰기나 읽기로 들어가는 것인데
파일로 만들지 않고..코딩에서 바로 들어가는 방법좀 알려주세요
오늘 하루도 즐겁고 행복한 하루 보내세요
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델파인
- 2005.07.22 19:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영신
- •
- 2005.07.22 18:22
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.07.26 06:50안녕하세요. 최용일입니다. SOAP도 TCP/IP를 씁니다. HTTP프로토콜을 이용하죠... HTTP에 맞게 바꾸...
-
- 이종만
- 2005.07.22 03:04
- 0 COMMENTS
- /
- 0 LIKES
-
- KKAW
- 2005.07.22 00:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 이종택
- •
- 2005.07.22 00:02
- 2 COMMENTS
- /
- 0 LIKES
-
민스맘•2005.07.22 19:20리스트뷰에 내용을 뿌리는 부분 마지막에 ListView1ColumnClick( ListView1, ListView1.Columns[...
-
이종택•2005.07.22 19:48정말 고맙습니다..!!!
-
- 아러브델파이
- 2005.07.21 23:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 이형진
- •
- 2005.07.21 21:50
- 4 COMMENTS
- /
- 0 LIKES
-
심재용•2005.07.23 19:02파라독스DB 의 특정필드만 깨지는 경우는 만의 하나일 정도로 흔한일이 아닌듯 합니다. 같은 현상이 여러번...
-
타락천사•2005.07.22 19:25안녕하세여. 타락임다.. 판매회사의 방식에 따라 다르겠지만, 일반적으로 솔루션과 DB는 별개 입니다. ...
-
델티즌•2005.07.22 01:57특정값만 그렇다면 프로그램 버그같은데요. 그리고 FAT,FAT32경우 정전시 일부 자료가 손실되는 문제를 가...
-
장덕곤•2005.07.22 09:06프로그램의 안정성을 위해 비용을 지불하기보다는 차라리 주기적인 백업을 하시고 ups를 다는게 어떤지 ...
-
- 강철
- 2005.07.21 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 서해근
- •
- 2005.07.21 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2005.07.21 23:38제가 6.0을 쓰고 있어서.. 거기서는 문제가 없네요 1. Tools의 MarkTip을 활용한 방법 Tools...
-
- 유효근
- •
- 2005.07.21 08:25
- 1 COMMENTS
- /
- 0 LIKES
-
신영진•2005.07.21 19:391. 일단 Delphi 2005 실행 ... 당연한걸 설명 .ㅋ 2. 메뉴에서 Tools --> Options 선택 3. 그렇게 하...
-
- 양승철
- 2005.07.21 04:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 장영아
- •
- 2005.07.21 04:31
- 2 COMMENTS
- /
- 0 LIKES
-
이중철•2005.07.21 23:43내용상 SendData는 변수를 보내는 부문이고.. RecvData는 받는 부문 같은데 var ResDat...
-
장영아•2005.07.22 01:14ResData: array [0..1024] of char; 이렇게 정의하니까 되네요.. 감사합니다.
-
- 박종성
- •
- 2005.07.21 03:21
- 4 COMMENTS
- /
- 0 LIKES
-
성광기•2005.08.08 04:45경험에 의한 답변을 드리겠습니다. 근본적으로 어떤 방법으로도 baud rate 230400은 PC에서는 지원하지 않...
-
허강우•2005.08.02 20:04=> 이승민님이 알려주신건데...AsyncFree 로 검색해서 사용해 보세요. 그 이상의 속도로도 이상없이...
-
권태훈•2005.07.21 19:36pc에서 높게 세팅되고 실제 통신이 낮게 되고 있다면 보레이츠 안 맞아도 됩니다. 반대인 경우는 안됩니...
-
박종성•2005.07.21 20:17제목에 [냉무]를 붙였는데... 내용을 입력해야만 올라가네요 ㅡ.ㅡ [냉무]입니다 &...
-
- 권기현
- •
- 2005.07.21 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri™•2005.07.21 07:17procedure TForm.DynamicComboChange(Sender:TObject); var selectVal : String...
-
- 이종민
- •
- 2005.07.21 00:42
- 4 COMMENTS
- /
- 0 LIKES
-
nilriri™•2005.07.21 07:04레포트에...타이틀 벤드랑 똑같은 높이의 밴드를 하나더 배치하시구용.. 레포트의 속성중에 옵션에 보시...
-
민스맘•2005.07.21 01:16PageHeader 를 사용해서 하시면 될듯... 1 페이지는 Visible := False 로 하구 담에는 True 로 해...
-
이종민•2005.07.21 01:31민스맘님 감사합니다. 근데.. 그 부분을 어디에다가 넣어야하나요'~'; 이거 다 짤라고 하는거랑 비슷...
-
민스맘•2005.07.21 02:15거기에 QRBand 를 놓구 BandType 을 PageHeader 로 하시면 되여
-
-
민스맘•2005.07.21 00:35Banker's Rounding 라는 것 때문이라네요.... 반올림할때 5의 경우 앞의 수가 짝수이면 버리고 홀...
-
-
- 이상현
- 2005.07.20 23:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김길남
- •
- 2005.07.20 21:30
- 1 COMMENTS
- /
- 0 LIKES
-
박철훈•2005.07.21 01:26일딴 OS가 클러스터링을 지원하는 2000 어드벤스드서버 이상이고 두대의 컴퓨터를 클러스터링으로 묶으면...
-
- 강철
- •
- 2005.07.20 20:57
- 1 COMMENTS
- /
- 0 LIKES
HTmlList := TStringList.Create; HTmlList.Add('<HTML>'); HTmlList.Add('<head><title>MessengerLogin</title></head>'); HTmlList.Add('<body onLoad="document.loginF.submit();">'); HTmlList.Add('<form name="loginF" method="post...-
이병협•2005.07.22 22:53<!--CodeS--> const IID_IPersistStreamInit: TGUID = ( ...
-
- 김종균
- 2005.07.20 08:26
- 0 COMMENTS
- /
- 0 LIKES
const
IID_IPersistStreamInit: TGUID = (
D1:$7FD52380;D2:$4E07;D3:$101B;D4:($AE,$2D,$08,$00,$2B,$2E,$C7,$13));
procedure LoadFromHtmlTxt(html: String);
var
hr: HRESULT;
pUnkBrowser, pUnkDisp: IUnknown;
pStream: IStream;
hHTMLText: HGLOBAL;
pHtmlDoc: IDispatch;
pPersistStreamInit: IPersistStreamInit;
szHTMLText: PChar;
begin
szHTMLText := PChar(html);
hHTMLText := GlobalAlloc(GPTR, StrLen(szHTMLText) + 1);
if (hHTMLText = NULL) then Exit;
lstrcpy(pchar(hHTMLText), szHTMLText);
hr := CreateStreamOnHGlobal(hHTMLText, TRUE, pStream);
WebBrowser1.Silent := True;
pHtmlDoc := WebBrowser1.Document;
hr := pHtmlDoc.QueryInterface(IID_IPersistStreamInit, pPersistStreamInit);
if (SUCCEEDED(hr)) then
begin
hr := pPersistStreamInit.InitNew;
if (SUCCEEDED(hr)) then
begin
hr := pPersistStreamInit.Load(pStream);
end;
pPersistStreamInit := nil;
end;
end;
<!--CodeE-->