Source code of file oscpmwin_v0.4.1.723/network.pas from the
osCommerce Product Manager for Windows.


0000:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001:   osCommerce Product Manager for Windows (oscpmwin).
0002:   0003:   
0004:   You can contact Mario A. Valdez-Ramirez
0005:   by email at mario@mariovaldez.org or paper mail at
0006:   Olmos 809, San Nicolas, NL. 66495, Mexico.
0007:   
0008:   This program is free software; you can redistribute it and/or modify
0009:   it under the terms of the GNU General Public License as published by
0010:   the Free Software Foundation; either version 2 of the License, or (at
0011:   your option) any later version.
0012:   
0013:   This program is distributed in the hope that it will be useful, but
0014:   WITHOUT ANY WARRANTY; without even the implied warranty of
0015:   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0016:   General Public License for more details.
0017:   
0018:   You should have received a copy of the GNU General Public License
0019:   along with this program; if not, write to the Free Software
0020:   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0021:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0022:   unit network;
0023:   
0024:   interface
0025:   
0026:   USES IdComponent, IdHTTP, StdCtrls, ComCtrls, IdAntiFreezeBase, IdAntiFreeze, IdSSLOpenSSL, oscpmdata;
0027:   
0028:   TYPE
0029:     Topm_EventHandler = CLASS
0030:       PROCEDURE PRopm_HTTPClient_WorkBegin (Sender: TOBJECT; AWorkMode: TWorkMode; CONST AWorkCountMax: INTEGER);
0031:       PROCEDURE PRopm_HTTPClient_Work (Sender: TOBJECT; AWorkMode: TWorkMode; CONST AWorkCount: INTEGER);
0032:       PROCEDURE PRopm_HTTPClient_WorkEnd (Sender: TOBJECT; AWorkMode: TWorkMode);
0033:     END;
0034:   
0035:   
0036:   FUNCTION FNopm_NetExist : BOOLEAN;
0037:   FUNCTION FNopm_OpenDBConnection (DBUser, DBPass : STRING) : STRING;
0038:   FUNCTION FNopm_CloseDBConnection : STRING;
0039:   FUNCTION FNopm_ConnectionState : BOOLEAN;
0040:   PROCEDURE PRopm_GetIEProxyData (VAR ProxyHost : STRING; VAR ProxyPort : LONGINT);
0041:   PROCEDURE PRopm_WriteLog (LogString: STRING);
0042:   PROCEDURE PRopm_ResetLog;
0043:   PROCEDURE PRopm_Prepare_HTTPClient (ProgressBar : TProgressBar; ProgressLabel : TLabel; UseProxy : BOOLEAN);
0044:   PROCEDURE PRopm_Disconnect_HTTPClient;
0045:   FUNCTION FNopm_Download_File (FileURL, FileFileName : STRING) : BOOLEAN;
0046:   FUNCTION FNopm_Upload_File (UploadURL, FileFile, FileFileName, FileSubdir : STRING; VAR RenFileName : STRING) : LONGINT;
0047:   FUNCTION FNopm_Send_Command (CommandURL, OperationStr, OpParams : STRING; VAR OpResult : STRING) : LONGINT;
0048:   FUNCTION FNopm_Send_SimpleCommand (CommandURL, OperationStr, OpParams : STRING; VAR OpResult : STRING) : LONGINT;
0049:   FUNCTION FNopm_Receive_File (CommandURL, OperationStr, RetFileName : STRING) : STRING;
0050:   FUNCTION FNopm_FullRemoteError (ErrorCode : LONGINT) : STRING;
0051:   FUNCTION FNopm_WebDB_Query (CommandURL, SQLString : STRING; VAR RecSetArray : opmR_DBQuery_Recordset) : LONGINT;
0052:   PROCEDURE PRopm_Close_WebDBQuery;
0053:   FUNCTION FNopm_Unserial_DBQuery (VAR RecSetStr : STRING; VAR RecSetArray : opmR_DBQuery_Recordset) : LONGINT;
0054:   FUNCTION FNopm_HashCredentials (Salt, Credential : STRING; Iterations : LONGINT) : STRING;
0055:   
0056:   
0057:   VAR
0058:     ExistNetLink : BOOLEAN;
0059:     opmG_Network_EventHandler : Topm_EventHandler;
0060:     opmG_HTTPClient: TIdHTTP;
0061:     opmG_SSLHandler: TIdSSLIOHandlerSocket;
0062:     opmG_HTTP_ProgressBar : TProgressBar;
0063:     opmG_HTTP_ProgressLabel : TLabel;
0064:     opmG_INDY_AntiFreeze : TIdAntiFreeze;
0065:     opmG_HTTPClient_TransactLog : STRING;
0066:     opmG_WeAreConnected : BOOLEAN;
0067:   
0068:   
0069:   IMPLEMENTATION
0070:   
0071:   USES Windows, SysUtils, gnugettext, Forms, dataman, WinInet, IdGlobal,
0072:        Classes, IdMultipartFormData;
0073:   
0074:   
0075:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0076:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0077:   FUNCTION FNopm_NetExist : BOOLEAN;
0078:   BEGIN
0079:     IF ((GetSystemMetrics (SM_NETWORK) AND $01) > 0) THEN
0080:       FNopm_NetExist := TRUE
0081:     ELSE
0082:       FNopm_NetExist := FALSE;
0083:   END;
0084:   
0085:   
0086:   
0087:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0088:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0089:   FUNCTION FNopm_OpenDBConnection (DBUser, DBPass : STRING) : STRING;
0090:   BEGIN
0091:     opmG_WeAreConnected := TRUE;
0092:     FNopm_OpenDBConnection := '';
0093:   END;
0094:   
0095:   
0096:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0097:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0098:   FUNCTION FNopm_CloseDBConnection : STRING;
0099:   BEGIN
0100:     opmG_WeAreConnected := FALSE;
0101:     FNopm_CloseDBConnection := '';
0102:   END;
0103:   
0104:   
0105:   
0106:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0107:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0108:   FUNCTION FNopm_ConnectionState : BOOLEAN;
0109:   BEGIN
0110:     FNopm_ConnectionState := opmG_WeAreConnected;
0111:   END;
0112:   
0113:   
0114:   
0115:   
0116:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0117:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0118:   PROCEDURE PRopm_GetIEProxyData (VAR ProxyHost : STRING; VAR ProxyPort : LONGINT);
0119:   VAR
0120:     ProxyInfo : PInternetProxyInfo;
0121:     DataLen : CARDINAL;
0122:     DataString : STRING;
0123:   BEGIN
0124:     DataString := '';
0125:     ProxyHost := '';
0126:     ProxyPort := 0;
0127:     DataLen := 4096;
0128:     GetMem (ProxyInfo, DataLen);
0129:     TRY
0130:       IF (InternetQueryOption (NIL, INTERNET_OPTION_PROXY, ProxyInfo, DataLen)) THEN
0131:         IF (ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY) THEN
0132:           BEGIN
0133:             DataString := ProxyInfo^.lpszProxy;
0134:           END;
0135:     FINALLY
0136:       FREEMEM (ProxyInfo);
0137:     END;
0138:     IF (DataString <> '') THEN
0139:       BEGIN
0140:         IF (ANSIPOS ('=', DataString) > 0) THEN
0141:           BEGIN
0142:             IF (ANSIPOS ('http=', DataString) > 0) THEN
0143:               BEGIN
0144:                 DELETE (DataString, 1, ANSIPOS ('http=', DataString) + LENGTH ('http=') - 1);
0145:                 ProxyHost := COPY (DataString, 1, ANSIPOS (':', DataString) - 1);
0146:                 DELETE (DataString, 1, ANSIPOS (':', DataString));
0147:                 ProxyPort := FNopm_StrToInt (DataString);
0148:               END
0149:             ELSE
0150:               BEGIN
0151:                 ProxyHost := '';
0152:                 ProxyPort := 0;
0153:               END;
0154:           END
0155:         ELSE
0156:           BEGIN
0157:             ProxyHost := COPY (DataString, 1, ANSIPOS (':', DataString) - 1);
0158:             DELETE (DataString, 1, ANSIPOS (':', DataString));
0159:             ProxyPort := FNopm_StrToInt (DataString);
0160:           END;
0161:       END;
0162:   END;
0163:   
0164:   
0165:   
0166:   
0167:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0168:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0169:   PROCEDURE PRopm_WriteLog (LogString: STRING);
0170:   VAR
0171:     LogDirname: STRING;
0172:     LogFile:  TEXTFILE;
0173:   BEGIN
0174:     IF (opmG_DBDebugLog > 0) THEN
0175:       BEGIN
0176:         LogDirname := ExtractFilePath (Application.Exename);
0177:         ASSIGNFILE (LogFile, LogDirname + opmC_DebugFile);
0178:         TRY
0179:           IF FILEEXISTS (LogDirname + opmC_DebugFile) THEN APPEND (LogFile) ELSE REWRITE(Logfile);
0180:           WRITELN (LogFile, FormatDateTime('yyyy/mm/dd hh:nn:ss:zzz', NOW), '|', LogString);
0181:           CLOSEFILE (LogFile)
0182:         EXCEPT
0183:         END;
0184:       END;
0185:   END;
0186:   
0187:   
0188:   
0189:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0190:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0191:   PROCEDURE PRopm_ResetLog;
0192:   VAR
0193:     LogDirname: STRING;
0194:     LogFile:  TEXTFILE;
0195:   BEGIN
0196:     LogDirname := ExtractFilePath (Application.Exename);
0197:     ASSIGNFILE (LogFile, LogDirname + opmC_DebugFile);
0198:     TRY
0199:       REWRITE(Logfile);
0200:       WRITELN (LogFile, FormatDateTime('yyyy/mm/dd hh:nn:ss:zzz', NOW));
0201:       WRITELN (LogFile, opmC_DebugFileSeparator);
0202:       WRITELN (LogFile, '');
0203:       CLOSEFILE (LogFile)
0204:     EXCEPT
0205:     END;
0206:   END;
0207:   
0208:   
0209:   
0210:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0211:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0212:   PROCEDURE PRopm_Prepare_HTTPClient (ProgressBar : TProgressBar; ProgressLabel : TLabel; UseProxy : BOOLEAN);
0213:   BEGIN
0214:     opmG_HTTP_ProgressBar := ProgressBar;
0215:     opmG_HTTP_ProgressLabel := ProgressLabel;
0216:     IF (UseProxy AND (opmG_WBProxyHost <> '') AND (opmG_WBProxyPort > 0)) THEN
0217:       BEGIN
0218:         opmG_HTTPClient.ProxyParams.ProxyServer := opmG_WBProxyHost;
0219:         opmG_HTTPClient.ProxyParams.ProxyPort := opmG_WBProxyPort;
0220:       END
0221:     ELSE
0222:       BEGIN
0223:         opmG_HTTPClient.ProxyParams.ProxyServer := '';
0224:         opmG_HTTPClient.ProxyParams.ProxyPort := 0;
0225:       END;
0226:     opmG_HTTPClient.ReadTimeout := opmC_Def_HTTPWaitFactor * opmG_HTTPConnWait;
0227:     opmG_HTTPClient.ConnectTimeout := opmG_HTTPConnWait;
0228:     opmG_HTTPClient.Request.UserAgent := opmG_FullUserAgent;
0229:     IF (opmG_WBNoCacheImg > 0) THEN opmG_HTTPClient.Request.CacheControl := 'min-fresh=1,max-age=1,no-cache' ELSE opmG_HTTPClient.Request.CacheControl := '';
0230:   END;
0231:   
0232:   
0233:   
0234:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0235:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0236:   PROCEDURE PRopm_Disconnect_HTTPClient;
0237:   BEGIN
0238:     opmG_HTTPClient.DisconnectSocket;
0239:   END;
0240:   
0241:   
0242:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0243:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0244:   PROCEDURE Topm_EventHandler.PRopm_HTTPClient_WorkBegin (Sender: TOBJECT; AWorkMode: TWorkMode; CONST AWorkCountMax: INTEGER);
0245:   BEGIN
0246:     IF ((AWorkCountMax > 0) AND (opmG_HTTP_ProgressBar <> NIL)) THEN
0247:       BEGIN
0248:         opmG_HTTP_ProgressBar.Enabled := TRUE;
0249:         opmG_HTTP_ProgressBar.Min := 0;
0250:         opmG_HTTP_ProgressBar.Max := AWorkCountMax;
0251:         opmG_HTTP_ProgressBar.Position := 0;
0252:       END;
0253:     Application.ProcessMessages;
0254:   END;
0255:   
0256:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0257:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0258:   PROCEDURE Topm_EventHandler.PRopm_HTTPClient_Work (Sender: TOBJECT; AWorkMode: TWorkMode; CONST AWorkCount: INTEGER);
0259:   BEGIN
0260:     IF ((opmG_HTTP_ProgressBar <> NIL) AND (opmG_HTTP_ProgressLabel <> NIL)) THEN
0261:       BEGIN
0262:         opmG_HTTP_ProgressLabel.Caption := INTTOSTR (AWorkCount) + _(' bytes');
0263:         opmG_HTTP_ProgressBar.Position := AWorkCount;
0264:       END;
0265:     Application.ProcessMessages;
0266:   END;
0267:   
0268:   
0269:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0270:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0271:   PROCEDURE Topm_EventHandler.PRopm_HTTPClient_WorkEnd (Sender: TOBJECT; AWorkMode: TWorkMode);
0272:   BEGIN
0273:     IF ((opmG_HTTP_ProgressBar <> NIL) AND (opmG_HTTP_ProgressLabel <> NIL)) THEN
0274:       BEGIN
0275:         opmG_HTTP_ProgressBar.Enabled := FALSE;
0276:         opmG_HTTP_ProgressBar.Min := 0;
0277:         opmG_HTTP_ProgressBar.Max := 100;
0278:         opmG_HTTP_ProgressBar.Position := 0;
0279:         opmG_HTTP_ProgressLabel.Caption := '';
0280:       END;
0281:     Application.ProcessMessages;
0282:   END;
0283:   
0284:   
0285:   
0286:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0287:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0288:   FUNCTION FNopm_Download_File (FileURL, FileFileName : STRING) : BOOLEAN;
0289:   VAR
0290:     FileStream : TMemoryStream;
0291:   BEGIN
0292:     FNopm_Download_File := FALSE;
0293:     IF ((FileURL <> '') AND (FileFileName <> '')) THEN
0294:       BEGIN
0295:         SysUtils.DELETEFILE (FileFileName);
0296:         FileURL := opmG_HTTPClient.URL.URLEncode (FileURL);
0297:         opmG_HTTPClient.DisconnectSocket;
0298:         FileStream := TMemoryStream.Create;
0299:         TRY
0300:           opmG_HTTPClient.Get (FileURL, FileStream);
0301:           FileStream.SaveToFile (FileFileName);
0302:           FNopm_Download_File := TRUE;
0303:         EXCEPT
0304:           ON EIdOSSLCouldNotLoadSSLLibrary DO RAISE;
0305:         ELSE
0306:         END;
0307:         FileStream.Free;
0308:       END;
0309:   END;
0310:   
0311:   
0312:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0313:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0314:   FUNCTION FNopm_Upload_File (UploadURL, FileFile, FileFileName, FileSubdir : STRING;
0315:                               VAR RenFileName : STRING) : LONGINT;
0316:   VAR
0317:     PostData : TIdMultiPartFormDataStream;
0318:     UploadStamp : STRING;
0319:     ErrPos : LONGINT;
0320:   BEGIN
0321:     FNopm_Upload_File := opmC_WebScriptDefaultCode;
0322:     RenFileName := '';
0323:     opmG_HTTPClient_TransactLog := '';
0324:     IF ((UploadURL <> '') AND (FileFile <> '')) THEN
0325:       BEGIN
0326:         UploadURL := opmG_HTTPClient.URL.URLEncode (UploadURL);
0327:         opmG_HTTPClient.DisconnectSocket;
0328:         UploadStamp := FNopm_TimeStamp;
0329:         PostData := TIdMultiPartFormDataStream.Create;
0330:         PostData.AddFormField ('Un', FNopm_HashCredentials (UploadStamp, opmG_DBUsername, opmC_HashingStrengh));
0331:         PostData.AddFormField ('Pw', FNopm_HashCredentials (UploadStamp, opmG_DBPassword, opmC_HashingStrengh));
0332:         PostData.AddFormField ('Op', 'upload');
0333:         PostData.AddFormField ('Fn', FileFileName);
0334:         PostData.AddFormField ('SD', FileSubdir);
0335:         PostData.AddFormField ('Vn', opmC_WebScriptVersion);
0336:         PostData.AddFormField ('TS', UploadStamp);
0337:         PostData.AddFile ('Fl', FileFile, 'application/octet-stream');
0338:         PostData.Position := 0;
0339:         TRY
0340:           TRY
0341:             opmG_HTTPClient_TransactLog := opmG_HTTPClient.Post (UploadURL, PostData);
0342:           EXCEPT
0343:             {ON EIdOSSLCouldNotLoadSSLLibrary DO RAISE;}
0344:             opmG_HTTPClient_TransactLog := '';
0345:           END;
0346:         FINALLY
0347:           PostData.Free;
0348:         END;
0349:         RenFilename := opmG_HTTPClient_TransactLog;
0350:         IF (opmG_HTTPClient_TransactLog <> '') THEN
0351:           BEGIN
0352:             IF (ANSIPOS (opmC_WebScriptOKCode, opmG_HTTPClient_TransactLog) > 0) THEN
0353:               BEGIN
0354:                 RenFileName := COPY (opmG_HTTPClient_TransactLog, ANSIPOS ('[', opmG_HTTPClient_TransactLog) + 1, ANSIPOS (']', opmG_HTTPClient_TransactLog) - ANSIPOS ('[', opmG_HTTPClient_TransactLog) - 1);
0355:                 FNopm_Upload_File := 0
0356:               END
0357:             ELSE
0358:               BEGIN
0359:                 ErrPos := ANSIPOS (opmC_WebScriptERRORCode, opmG_HTTPClient_TransactLog);
0360:                 IF (ErrPos > 0) THEN
0361:                   BEGIN
0362:                     DELETE (opmG_HTTPClient_TransactLog, 1, ErrPos + LENGTH (opmC_WebScriptERRORCode));
0363:                     ErrPos := ANSIPOS (' ', opmG_HTTPClient_TransactLog);
0364:                     IF (ErrPos > 0) THEN FNopm_Upload_File := FNopm_StrToInt (COPY (opmG_HTTPClient_TransactLog, 1, (ErrPos - 1)));
0365:                   END
0366:                 ELSE FNopm_Upload_File := opmC_WebScriptUnknownCode;
0367:               END;
0368:           END
0369:         ELSE FNopm_Upload_File := opmC_WebScriptDefaultCode;
0370:       END;
0371:   END;
0372:   
0373:   
0374:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0375:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0376:   FUNCTION FNopm_Send_Command (CommandURL, OperationStr, OpParams : STRING; VAR OpResult : STRING) : LONGINT;
0377:   VAR
0378:     PostData : TIdMultiPartFormDataStream;
0379:     CommandStamp : STRING;
0380:     ErrPos : LONGINT;
0381:   BEGIN
0382:     FNopm_Send_Command := opmC_WebScriptDefaultCode;
0383:     OpResult := '';
0384:     opmG_HTTPClient_TransactLog := '';
0385:     IF (OperationStr <> '') THEN
0386:       BEGIN
0387:         CommandURL := opmG_HTTPClient.URL.URLEncode (CommandURL);
0388:         opmG_HTTPClient.DisconnectSocket;
0389:         CommandStamp := FNopm_TimeStamp;
0390:         PostData := TIdMultiPartFormDataStream.Create;
0391:         PostData.AddFormField ('Un', FNopm_HashCredentials (CommandStamp, opmG_DBUsername, opmC_HashingStrengh));
0392:         PostData.AddFormField ('Pw', FNopm_HashCredentials (CommandStamp, opmG_DBPassword, opmC_HashingStrengh));
0393:         PostData.AddFormField ('Op', OperationStr);
0394:         PostData.AddFormField ('Fn', OpParams);
0395:         PostData.AddFormField ('Vn', opmC_WebScriptVersion);
0396:         PostData.AddFormField ('TS', CommandStamp);
0397:         TRY
0398:           TRY
0399:             opmG_HTTPClient_TransactLog := opmG_HTTPClient.Post (CommandURL, PostData);
0400:           EXCEPT
0401:             {ON EIdOSSLCouldNotLoadSSLLibrary DO RAISE;}
0402:             opmG_HTTPClient_TransactLog := '';
0403:           END;
0404:         FINALLY
0405:           PostData.Free;
0406:         END;
0407:         OpResult := opmG_HTTPClient_TransactLog;
0408:         IF (opmG_HTTPClient_TransactLog <> '') THEN
0409:           BEGIN
0410:             IF (ANSIPOS (opmC_WebScriptOKCode, opmG_HTTPClient_TransactLog) > 0) THEN
0411:               FNopm_Send_Command := 0
0412:             ELSE
0413:               BEGIN
0414:                 ErrPos := ANSIPOS (opmC_WebScriptERRORCode, opmG_HTTPClient_TransactLog);
0415:                 IF (ErrPos > 0) THEN
0416:                   BEGIN
0417:                     DELETE (opmG_HTTPClient_TransactLog, 1, ErrPos + LENGTH (opmC_WebScriptERRORCode));
0418:                     ErrPos := ANSIPOS (' ', opmG_HTTPClient_TransactLog);
0419:                     IF (ErrPos > 0) THEN FNopm_Send_Command := FNopm_StrToInt (COPY (opmG_HTTPClient_TransactLog, 1, (ErrPos - 1)));
0420:                   END
0421:                 ELSE FNopm_Send_Command := opmC_WebScriptUnknownCode;
0422:               END;
0423:           END
0424:         ELSE FNopm_Send_Command := opmC_WebScriptDefaultCode;
0425:       END;
0426:   END;
0427:   
0428:   
0429:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0430:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0431:   FUNCTION FNopm_Send_SimpleCommand (CommandURL, OperationStr, OpParams : STRING; VAR OpResult : STRING) : LONGINT;
0432:   VAR
0433:     PostData : TIdMultiPartFormDataStream;
0434:     ErrPos : LONGINT;
0435:   BEGIN
0436:     FNopm_Send_SimpleCommand := opmC_WebDefaultCode;
0437:     OpResult := '';
0438:     opmG_HTTPClient_TransactLog := '';
0439:     IF (OperationStr <> '') THEN
0440:       BEGIN
0441:         CommandURL := opmG_HTTPClient.URL.URLEncode (CommandURL);
0442:         opmG_HTTPClient.DisconnectSocket;
0443:         PostData := TIdMultiPartFormDataStream.Create;
0444:         PostData.AddFormField ('Op', OperationStr);
0445:         PostData.AddFormField ('Fn', OpParams);
0446:         TRY
0447:           TRY
0448:             opmG_HTTPClient_TransactLog := opmG_HTTPClient.Post (CommandURL, PostData);
0449:           EXCEPT
0450:             {ON EIdOSSLCouldNotLoadSSLLibrary DO RAISE;}
0451:             opmG_HTTPClient_TransactLog := '';
0452:           END;
0453:         FINALLY
0454:           PostData.Free;
0455:         END;
0456:         OpResult := opmG_HTTPClient_TransactLog;
0457:         IF (ANSIPOS (opmC_WebScriptOKCode, opmG_HTTPClient_TransactLog) > 0) THEN
0458:           FNopm_Send_SimpleCommand := 0
0459:         ELSE
0460:           BEGIN
0461:             ErrPos := ANSIPOS (opmC_WebScriptERRORCode, opmG_HTTPClient_TransactLog);
0462:             IF (ErrPos > 0) THEN
0463:               BEGIN
0464:                 DELETE (opmG_HTTPClient_TransactLog, 1, ErrPos + LENGTH (opmC_WebScriptERRORCode));
0465:                 ErrPos := ANSIPOS (' ', opmG_HTTPClient_TransactLog);
0466:                 IF (ErrPos > 0) THEN FNopm_Send_SimpleCommand := FNopm_StrToInt (COPY (opmG_HTTPClient_TransactLog, 1, (ErrPos - 1)));
0467:               END
0468:             ELSE FNopm_Send_SimpleCommand := opmC_WebScriptUnknownCode;
0469:           END;
0470:       END;
0471:   END;
0472:   
0473:   
0474:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0475:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0476:   FUNCTION FNopm_Receive_File (CommandURL, OperationStr, RetFileName : STRING) : STRING;
0477:   VAR
0478:     PostData : TIdMultiPartFormDataStream;
0479:     CommandStamp : STRING;
0480:     FileStream : TMemoryStream;
0481:     SugFileName : STRING;
0482:   BEGIN
0483:     FNopm_Receive_File := '';
0484:     opmG_HTTPClient_TransactLog := '';
0485:     SugFileName := '';
0486:     SysUtils.DELETEFILE (RetFileName);
0487:     IF (OperationStr <> '') THEN
0488:       BEGIN
0489:         CommandURL := opmG_HTTPClient.URL.URLEncode (CommandURL);
0490:         opmG_HTTPClient.DisconnectSocket;
0491:         CommandStamp := FNopm_TimeStamp;
0492:         PostData := TIdMultiPartFormDataStream.Create;
0493:         PostData.AddFormField ('Un', FNopm_HashCredentials (CommandStamp, opmG_DBUsername, opmC_HashingStrengh));
0494:         PostData.AddFormField ('Pw', FNopm_HashCredentials (CommandStamp, opmG_DBPassword, opmC_HashingStrengh));
0495:         PostData.AddFormField ('Op', OperationStr);
0496:         PostData.AddFormField ('Fn', RetFileName);
0497:         PostData.AddFormField ('Vn', opmC_WebScriptVersion);
0498:         PostData.AddFormField ('TS', CommandStamp);
0499:         FileStream := TMemoryStream.Create;
0500:         TRY
0501:           TRY
0502:             opmG_HTTPClient.Post (CommandURL, PostData, FileStream);
0503:             IF (FileStream.Size > 10) THEN
0504:               BEGIN
0505:                 FileStream.SaveToFile (RetFileName);
0506:                 SugFileName := opmG_HTTPClient.Response.RawHeaders.Values['Content-disposition'];
0507:                 SugFileName := TRIM (COPY (SugFileName, ANSIPOS ('filename=', SugFileName) + LENGTH ('filename='), 50));
0508:                 FNopm_Receive_File := SugFileName;
0509:               END
0510:             ELSE FNopm_Receive_File := '';
0511:           EXCEPT
0512:             {ON EIdOSSLCouldNotLoadSSLLibrary DO RAISE;}
0513:             FNopm_Receive_File := '';
0514:           END;
0515:         FINALLY
0516:           PostData.Free;
0517:           FileStream.Free;
0518:         END;
0519:       END;
0520:   END;
0521:   
0522:   
0523:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0524:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0525:   FUNCTION FNopm_FullRemoteError (ErrorCode : LONGINT) : STRING;
0526:   BEGIN
0527:     CASE ErrorCode OF
0528:       opmC_WebScriptDefaultCode  : FNopm_FullRemoteError := 'ERROR 100:  ' + _('There was an error while trying to connect to the server-side script.') + #13#10 + _('Please check it is installed and check your proxy settings.');
0529:       opmC_WebScriptUnknownCode  : FNopm_FullRemoteError := 'ERROR 200:  ' + _('General script error.') + #13#10 + _('The script failed and could not even report the error.');
0530:       opmC_WebDefaultCode  : FNopm_FullRemoteError := 'ERROR 50:  ' + _('There was an error while trying to connect to the web file.') + #13#10 + _('This could be a temporary failure in the web server. Please, try later.') + #13#10 + _('But also could be a misconfiguration; please check your proxy settings.');
0531:       opmC_WebScriptCorruptCode : FNopm_FullRemoteError := 'ERROR 999: ' + _('Integrity check failed, the returned data was corrupted.');
0532:       1000 : FNopm_FullRemoteError := 'ERROR 1000: ' + _('The version of the server-side script is wrong.') + #13#10 + _('Please install the file provided with this application.' + #13#10 + 'Required version: ' + opmC_WebScriptVersion);
0533:       1010 : FNopm_FullRemoteError := 'ERROR 1010: ' + _('The server image directory cannot be found.');
0534:       1020 : FNopm_FullRemoteError := 'ERROR 1020: ' + _('The password is not correct.');
0535:       1021 : FNopm_FullRemoteError := 'ERROR 1021: ' + _('There has been an error while trying to get the server password.');
0536:       1024 : FNopm_FullRemoteError := 'ERROR 1024: ' + _('The server has blocked any connection from this IP address after too many login failures.');
0537:       1031 : FNopm_FullRemoteError := 'ERROR 1031: ' + _('There has been an error while trying to connect the database from the server-side script.');
0538:       1110 : FNopm_FullRemoteError := 'ERROR 1110: ' + _('The requested file cannot be found.');
0539:       1120 : FNopm_FullRemoteError := 'ERROR 1120: ' + _('There has been an error deleting the file (the file was not deleted).');
0540:       1121 : FNopm_FullRemoteError := 'ERROR 1121: ' + _('There has been an error deleting the file.');
0541:       1130 : FNopm_FullRemoteError := 'ERROR 1130: ' + _('There has been an error while uploading the file (the uploaded file was not found).');
0542:       1131 : FNopm_FullRemoteError := 'ERROR 1131: ' + _('There has been an error while uploading the file (the uploaded file could not be moved).');
0543:       1133 : FNopm_FullRemoteError := 'ERROR 1133: ' + _('There has been an error while uploading the file (the uploaded file already exists).');
0544:       1134 : FNopm_FullRemoteError := 'ERROR 1134: ' + _('There has been an error while uploading the file.');
0545:       1150 : FNopm_FullRemoteError := 'ERROR 1150: ' + _('There has been an error while trying to get the exchange rates (the remote server did not answered).');
0546:       1151 : FNopm_FullRemoteError := 'ERROR 1151: ' + _('There has been an error while trying to get the exchange rates (the currency code is invalid).');
0547:       1152 : FNopm_FullRemoteError := 'ERROR 1152: ' + _('There has been an error while trying to get the exchange rates (no currency code was specified).');
0548:       1171 : FNopm_FullRemoteError := 'ERROR 1171: ' + _('Empty database query.');
0549:       2000 : FNopm_FullRemoteError := 'ERROR 2000: ' + _('There has been an error while trying to connect the database from the server-side script.');
0550:       2010 : FNopm_FullRemoteError := 'ERROR 2010: ' + _('There has been an error while trying to connect the database from the server-side script (PHP has not support for MySQL).');
0551:       2020 : FNopm_FullRemoteError := 'ERROR 2020: ' + _('There has been an error while trying to connect the database from the server-side script (cannot find database parameters in the server).');
0552:       2100 : FNopm_FullRemoteError := 'ERROR 2100: ' + _('There has been an error while trying to connect the database from the server-side script (the database link was lost).');
0553:     ELSE
0554:       FNopm_FullRemoteError := _('Unknown error.');
0555:     END;
0556:   END;
0557:   
0558:   
0559:   
0560:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0561:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0562:   FUNCTION FNopm_WebDB_Query (CommandURL, SQLString : STRING; VAR RecSetArray : opmR_DBQuery_Recordset) : LONGINT;
0563:   VAR
0564:     PostData : TIdMultiPartFormDataStream;
0565:     CommandStamp : STRING;
0566:     ErrPos : LONGINT;
0567:     RetryCount : LONGINT;
0568:     LapseTime : DOUBLE;
0569:     ResultCode : LONGINT;
0570:   BEGIN
0571:     PRopm_WriteLog ('Executing query: ' + SQLString);
0572:     ResultCode := opmC_WebScriptDefaultCode;
0573:     RecSetArray.RowCount := 0;
0574:     RecSetArray.ColCount := 0;
0575:     RecSetArray.DataRows := 0;
0576:     RecSetArray.DataCols := 0;
0577:     SetLength (RecSetArray.Data, RecSetArray.RowCount, RecSetArray.ColCount);
0578:     opmG_HTTPClient_TransactLog := '';
0579:     RetryCount := 0;
0580:     IF (SQLString <> '') THEN
0581:       BEGIN
0582:         CommandURL := opmG_HTTPClient.URL.URLEncode (CommandURL);
0583:         opmG_HTTPClient.DisconnectSocket;
0584:         CommandStamp := FNopm_TimeStamp;
0585:         PostData := TIdMultiPartFormDataStream.Create;
0586:         PostData.AddFormField ('Un', FNopm_HashCredentials (CommandStamp, opmG_DBUsername, opmC_HashingStrengh));
0587:         PostData.AddFormField ('Pw', FNopm_HashCredentials (CommandStamp, opmG_DBPassword, opmC_HashingStrengh));
0588:         PostData.AddFormField ('Op', 'dbquery');
0589:         PostData.AddFormField ('Qy', FNopm_Base64_Encode (SQLString));
0590:         PostData.AddFormField ('Vn', opmC_WebScriptVersion);
0591:         PostData.AddFormField ('TS', CommandStamp);
0592:         IF (opmG_HTTPCompress > 0) THEN PostData.AddFormField ('Gz', '1') ELSE PostData.AddFormField ('Gz', '0');
0593:         TRY
0594:           IF (FNopm_ConnectionState = TRUE) THEN
0595:             BEGIN
0596:               Application.ProcessMessages;
0597:               REPEAT
0598:                 PRopm_WriteLog ('Try ' + INTTOSTR (RetryCount) + ' Ready... set...');
0599:                 TRY
0600:                   PRopm_WriteLog ('Go!');
0601:                   opmG_HTTPClient_TransactLog := opmG_HTTPClient.Post (CommandURL, PostData);
0602:                   PRopm_WriteLog ('Done!');
0603:                 EXCEPT
0604:                   {ON EIdOSSLCouldNotLoadSSLLibrary DO RAISE;}
0605:                   ON E : Exception DO
0606:                     BEGIN
0607:                       opmG_HTTPClient_TransactLog := '';
0608:                       PRopm_WriteLog ('ERROR (after ' + INTTOSTR (RetryCount) + ' tries)! : ' + E.Message);
0609:                     END;
0610:                 END;
0611:                 IF (opmG_HTTPClient_TransactLog <> '') THEN
0612:                   BEGIN
0613:                     IF (ANSIPOS (opmC_WebScriptOKCode, opmG_HTTPClient_TransactLog) > 0) THEN
0614:                       BEGIN
0615:                         ResultCode := FNopm_Unserial_DBQuery (opmG_HTTPClient_TransactLog, RecSetArray);
0616:                         PRopm_WriteLog ('Decoded records: ' + INTTOSTR (RecSetArray.DataRows) + 'x' + INTTOSTR (RecSetArray.DataCols) + ' Size: ' + INTTOSTR (RecSetArray.DataSize) + ' Original size: ' + INTTOSTR (RecSetArray.OrigSize));
0617:                       END
0618:                     ELSE
0619:                       BEGIN
0620:                         ErrPos := ANSIPOS (opmC_WebScriptERRORCode, opmG_HTTPClient_TransactLog);
0621:                         IF (ErrPos > 0) THEN
0622:                           BEGIN
0623:                             DELETE (opmG_HTTPClient_TransactLog, 1, ErrPos + LENGTH (opmC_WebScriptERRORCode));
0624:                             ErrPos := ANSIPOS (' ', opmG_HTTPClient_TransactLog);
0625:                             IF (ErrPos > 0) THEN ResultCode := FNopm_StrToInt (COPY (opmG_HTTPClient_TransactLog, 1, (ErrPos - 1)));
0626:                           END
0627:                         ELSE ResultCode := opmC_WebScriptUnknownCode;
0628:                       END;
0629:                   END
0630:                 ELSE
0631:                   BEGIN
0632:                     ResultCode := opmC_WebScriptDefaultCode;
0633:                   END;
0634:                 INC (RetryCount);
0635:                 IF ((ResultCode = opmC_WebScriptDefaultCode) OR (ResultCode = opmC_WebScriptCorruptCode)) THEN
0636:                   BEGIN
0637:                     LapseTime := GetTickCount;
0638:                     IF (ResultCode = opmC_WebScriptCorruptCode) THEN PRopm_WriteLog ('Corrupted data received.');
0639:                     REPEAT
0640:                       Application.ProcessMessages;
0641:                     UNTIL ((GetTickCount - LapseTime) > opmG_HTTPConnWait);
0642:                   END;
0643:               UNTIL ((RetryCount > opmG_HTTPConnRetries) OR (ResultCode = 0));
0644:             END
0645:           ELSE
0646:             BEGIN
0647:               PRopm_WriteLog ('Connection was down. Nothing done.');
0648:             END;
0649:         FINALLY
0650:           PostData.Free;
0651:         END;
0652:       END
0653:     ELSE
0654:       BEGIN
0655:         PRopm_WriteLog ('Query was empty. Nothing done.');
0656:       END;
0657:     FNopm_WebDB_Query := ResultCode;
0658:   END;
0659:   
0660:   
0661:   
0662:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0663:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0664:   PROCEDURE PRopm_Close_WebDBQuery;
0665:   BEGIN
0666:     opmG_DBQuery_Recordset.RowCount := 0;
0667:     opmG_DBQuery_Recordset.ColCount := 0;
0668:     opmG_DBQuery_Recordset.DataRows := 0;
0669:     opmG_DBQuery_Recordset.DataCols := 0;
0670:     SetLength (opmG_DBQuery_Recordset.Data, opmG_DBQuery_Recordset.RowCount, opmG_DBQuery_Recordset.ColCount);
0671:     opmG_HTTPClient_TransactLog := '';
0672:   END;
0673:   
0674:   
0675:   
0676:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0677:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0678:   FUNCTION FNopm_Unserial_DBQuery (VAR RecSetStr : STRING; VAR RecSetArray : opmR_DBQuery_Recordset) : LONGINT;
0679:   VAR
0680:     LineCount : LONGINT;
0681:     RecCount, FieldCount : LONGINT;
0682:     MaxFieldCount : LONGINT;
0683:     TmpStr, TmpStr2 : STRING;
0684:     TestStr : STRING;
0685:     DataList : TStringList;
0686:     CorruptedData : BOOLEAN;
0687:   BEGIN
0688:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0689:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0690:   
0691:    PENDIENTE CODIGO DE VERIFICACION DE LIMITES MAXIMOS DE REGISTROS Y CAMPOS
0692:    Y VERIFICACION DE INTEGRIDAD.
0693:   
0694:    PENDIENTE REVISAR INICIALIZACION DE RECSETARRAY.
0695:   
0696:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0697:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0698:     FNopm_Unserial_DBQuery := opmC_WebScriptDefaultCode;
0699:     RecSetArray.RowCount := 0;
0700:     RecSetArray.ColCount := 0;
0701:     RecSetArray.DataRows := 0;
0702:     RecSetArray.DataCols := 0;
0703:     RecSetArray.DataSize := 0;
0704:     RecSetArray.OrigSize := 0;
0705:     CorruptedData := FALSE;
0706:     TRY
0707:       DataList := TStringList.Create;
0708:       DataList.Text := RecSetStr;
0709:       IF (DataList.Count > 2) THEN
0710:         BEGIN
0711:           DataList.Delete (0);
0712:           DataList.Delete (DataList.Count - 1);
0713:           IF (opmG_HTTPCompress > 0) THEN
0714:             BEGIN
0715:               TmpStr := TRIM (DataList.Text);
0716:               DataList.Text := '';
0717:               Application.ProcessMessages;
0718:               TmpStr2 := FNopm_Base64_Decode (TmpStr);
0719:               Application.ProcessMessages;
0720:               TmpStr := '';
0721:               Application.ProcessMessages;
0722:               DataList.Text := FNopm_Inflate (TmpStr2);
0723:               Application.ProcessMessages;
0724:               TmpStr2 := '';
0725:             END;
0726:           RecCount := 0;
0727:           FieldCount := 0;
0728:           MaxFieldCount := 0;
0729:           FOR LineCount := 0 TO (DataList.Count - 1) DO
0730:             BEGIN
0731:               {Is this a new record? Check if we need more memory and allocate the space.}
0732:               IF (DataList.Strings[LineCount] = opmC_DBTag_RecBegin) THEN
0733:                 BEGIN
0734:                   INC (RecCount);
0735:                   IF (RecCount > RecSetArray.RowCount) THEN
0736:                     BEGIN
0737:                       RecSetArray.RowCount := RecCount + 100;
0738:                       SetLength (RecSetArray.Data, RecSetArray.RowCount, RecSetArray.ColCount);
0739:                     END;
0740:                   FieldCount := 0;
0741:                   TestStr := '';
0742:                 END
0743:               {Is this a field of the record? Retrieve its data.}
0744:               ELSE IF (COPY (DataList.Strings[LineCount], 1, 2) = opmC_DBTag_DataField) THEN
0745:                 BEGIN
0746:                   INC (FieldCount);
0747:                   IF (FieldCount > MaxFieldCount) THEN
0748:                     BEGIN
0749:                       MaxFieldCount := FieldCount;
0750:                       RecSetArray.ColCount := MaxFieldCount;
0751:                       SetLength (RecSetArray.Data, RecSetArray.RowCount, RecSetArray.ColCount);
0752:                     END;
0753:                   TmpStr := COPY (DataList.Strings[LineCount], 5, LENGTH (DataList.Strings[LineCount]) - 5);
0754:                   TestStr := TestStr + TmpStr;
0755:                   RecSetArray.Data[(RecCount - 1), (FieldCount - 1)] := FNopm_Base64_Decode (TmpStr);
0756:                   INC (RecSetArray.DataSize, LENGTH (RecSetArray.Data[(RecCount - 1), (FieldCount - 1)]));
0757:                   INC (RecSetArray.OrigSize, LENGTH (TmpStr));
0758:                 END
0759:               {Is this the end of the record? Retrieve the checksum.}
0760:               ELSE IF (COPY (DataList.Strings[LineCount], 1, 2) = opmC_DBTag_RecEnd) THEN
0761:                 BEGIN
0762:                   TmpStr := COPY (DataList.Strings[LineCount], 4, LENGTH (DataList.Strings[LineCount]) - 3);
0763:                   IF (TmpStr <> FNopm_MD5 (TestStr)) THEN
0764:                     BEGIN
0765:                       CorruptedData := TRUE;
0766:                       BREAK;
0767:                     END;
0768:                 END;
0769:             END;
0770:           IF (CorruptedData = TRUE) THEN
0771:             BEGIN
0772:               FNopm_Unserial_DBQuery := opmC_WebScriptCorruptCode;
0773:               RecSetArray.RowCount := 0;
0774:               RecSetArray.ColCount := 0;
0775:               RecSetArray.DataRows := 0;
0776:               RecSetArray.DataCols := 0;
0777:               RecSetArray.DataSize := 0;
0778:               RecSetArray.OrigSize := 0;
0779:             END
0780:           ELSE
0781:             BEGIN
0782:               RecSetArray.DataRows := RecCount;
0783:               RecSetArray.DataCols := MaxFieldCount;
0784:               FNopm_Unserial_DBQuery := 0;
0785:             END;
0786:         END
0787:       ELSE
0788:         BEGIN
0789:           FNopm_Unserial_DBQuery := 0;
0790:         END;
0791:     FINALLY
0792:       FreeAndNIL (DataList);
0793:     END;
0794:   END;
0795:   
0796:   
0797:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0798:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0799:   FUNCTION FNopm_HashCredentials (Salt, Credential : STRING; Iterations : LONGINT) : STRING;
0800:   VAR
0801:     CurIter : LONGINT;
0802:   BEGIN
0803:     IF (Iterations > 1) THEN
0804:       BEGIN
0805:         FOR CurIter := 1 TO Iterations DO
0806:           BEGIN
0807:             Credential := FNopm_MD5 (Credential + Salt);
0808:           END;
0809:         FNopm_HashCredentials := Credential;
0810:       END
0811:     ELSE FNopm_HashCredentials := FNopm_MD5 (FNopm_MD5 (Credential + Salt));
0812:   END;
0813:   
0814:   
0815:   
0816:   
0817:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0818:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0819:   INITIALIZATION
0820:   
0821:   ExistNetLink := FNopm_NetExist;
0822:   opmG_WeAreConnected := FALSE;
0823:   
0824:   opmG_SSLHandler := TIdSSLIOHandlerSocket.Create (Application);
0825:   opmG_SSLHandler.SSLOptions.Method := sslvSSLv2;
0826:   opmG_SSLHandler.SSLOptions.Mode := sslmUnassigned;
0827:   opmG_SSLHandler.SSLOptions.VerifyMode := [];
0828:   opmG_SSLHandler.SSLOptions.VerifyDepth := 0;
0829:   
0830:   opmG_HTTPClient := TIdHTTP.Create (Application);
0831:   opmG_HTTPClient.MaxLineAction := maException;
0832:   opmG_HTTPClient.OnWork := opmG_Network_EventHandler.PRopm_HTTPClient_Work;
0833:   opmG_HTTPClient.OnWorkBegin := opmG_Network_EventHandler.PRopm_HTTPClient_WorkBegin;
0834:   opmG_HTTPClient.OnWorkEnd := opmG_Network_EventHandler.PRopm_HTTPClient_WorkEnd;
0835:   opmG_HTTPClient.AllowCookies := False;
0836:   opmG_HTTPClient.HandleRedirects := True;
0837:   opmG_HTTPClient.ProxyParams.BasicAuthentication := FALSE;
0838:   opmG_HTTPClient.ProxyParams.ProxyPort := 0;
0839:   opmG_HTTPClient.Request.ContentLength := 0;
0840:   opmG_HTTPClient.Request.ContentRangeEnd := 0;
0841:   opmG_HTTPClient.Request.ContentRangeStart := 0;
0842:   opmG_HTTPClient.Request.Accept := 'text/html, */*';
0843:   opmG_HTTPClient.Request.BasicAuthentication := FALSE;
0844:   opmG_HTTPClient.HTTPOptions := [hoForceEncodeParams];
0845:   opmG_HTTPClient.IOHandler := opmG_SSLHandler;
0846:   
0847:   
0848:   opmG_INDY_AntiFreeze := TIdAntiFreeze.Create (Application);
0849:   
0850:   
0851:   
0852:   
0853:   end.
 
 
NA fum/lmd: 2007.07.15
Copyright ©1994-2017 by Mario A. Valdez-Ramírez.
no siga este enlace / do not follow this link